www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\Label\custom_Label\产品商城系统标签库\产品商城会员操作类标签库\nd_buy_vip_exet.asp
<%'$start_ext_newDsoft 以下系统生成,勿删!
'$newDsoft_label_type$:asp_label$end_newDsoft_label_type$
'$newDsoft_label_name$:nd_buy_vip_exet$end_newDsoft_label_name$
'$newDsoft_label_sql$: $end_newDsoft_label_sql$
'$newDsoft_label_params$:$end_newDsoft_label_params$
'$newDsoft_label_fenye_num$: $end_newDsoft_label_fenye_num$
'$newDsoft_label_beizhu$:显示购物车,订单,修改个人资料,在线支付宝充值等会员购物功能的显示,注意此标签一定要放在 产品商城的会员中心页 类型的模板里$end_newDsoft_label_beizhu$
'$newDsoft_is_sys_label$:0$end_newDsoft_is_sys_label$
'$newDsoft_other_params$:htmledxa:3|htmledxb:$end_newDsoft_other_params$
'$end_ext_newDsoft%>
<%
set conn=newdsoft_conn_obj
response.write "<script language=javascript>" & vbcrlf
response.write "<!--" & vbcrlf
response.write "function regInput(obj, reg, inputStr)" & vbcrlf
response.write "{" & vbcrlf
response.write " var docSel = document.selection.createRange()" & vbcrlf
response.write " if (docSel.parentElement().tagName != ""INPUT"") return false" & vbcrlf
response.write " oSel = docSel.duplicate()" & vbcrlf
response.write " oSel.text = """"" & vbcrlf
response.write " var srcRange = obj.createTextRange()" & vbcrlf
response.write " oSel.setEndPoint(""StartToStart"", srcRange)" & vbcrlf
response.write " var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)" & vbcrlf
response.write " return reg.test(str)" & vbcrlf
response.write "}" & vbcrlf
response.write "function checkspace(checkstr) {" & vbcrlf
response.write "var str = '';" & vbcrlf
response.write "for(i = 0; i < checkstr.length; i++) {" & vbcrlf
response.write "str = str + ' ';" & vbcrlf
response.write "}" & vbcrlf
response.write "return (str == checkstr);" & vbcrlf
response.write "}" & vbcrlf
response.write "//------------------------" & vbcrlf
response.write "function checkspace(checkstr) {" & vbcrlf
response.write "var str = '';" & vbcrlf
response.write "for(i = 0; i < checkstr.length; i++) {" & vbcrlf
response.write "str = str + ' ';" & vbcrlf
response.write "}" & vbcrlf
response.write "return (str == checkstr);" & vbcrlf
response.write "}" & vbcrlf
response.write "function ssother()" & vbcrlf
response.write "{" & vbcrlf
response.write "if(checkspace(document.receiveaddr.recepit.value)) {" & vbcrlf
response.write " document.receiveaddr.recepit.focus();" & vbcrlf
response.write "alert(""对不起，请填写收货人姓名！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "if(checkspace(document.receiveaddr.city.value)) {" & vbcrlf
response.write " document.receiveaddr.city.focus();" & vbcrlf
response.write "alert(""对不起，请填写收货人所在省市！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "if(checkspace(document.receiveaddr.address.value)) {" & vbcrlf
response.write " document.receiveaddr.address.focus();" & vbcrlf
response.write "alert(""对不起，请填写收货人详细收货地址！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "if(checkspace(document.receiveaddr.postcode.value)) {" & vbcrlf
response.write " document.receiveaddr.postcode.focus();" & vbcrlf
response.write "alert(""对不起，请填写邮编！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "if(checkspace(document.receiveaddr.usertel.value)) {" & vbcrlf
response.write " document.receiveaddr.usertel.focus();" & vbcrlf
response.write "alert(""对不起，请留下您的电话！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "if(checkspace(document.receiveaddr.deliverymethord.value)) {" & vbcrlf
response.write " document.receiveaddr.deliverymethord.focus();" & vbcrlf
response.write "alert(""对不起，您还没有选择送货方式！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "if(checkspace(document.receiveaddr.paymethord.value)) {" & vbcrlf
response.write " document.receiveaddr.paymethord.focus();" & vbcrlf
response.write "alert(""对不起，您还没有选择支付方式！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "if(document.receiveaddr.useremail.value.length!=0)" & vbcrlf
response.write "{" & vbcrlf
response.write "if (document.receiveaddr.useremail.value.charAt(0)==""."" ||" & vbcrlf
response.write "document.receiveaddr.useremail.value.charAt(0)==""@""||" & vbcrlf
response.write "document.receiveaddr.useremail.value.indexOf('@', 0) == -1 ||" & vbcrlf
response.write "document.receiveaddr.useremail.value.indexOf('.', 0) == -1 ||" & vbcrlf
response.write "document.receiveaddr.useremail.value.lastIndexOf(""@"")==document.receiveaddr.useremail.value.length-1 ||" & vbcrlf
response.write "document.receiveaddr.useremail.value.lastIndexOf(""."")==document.receiveaddr.useremail.value.length-1)" & vbcrlf
response.write "{" & vbcrlf
response.write "alert(""Email地址格式不正确！"");" & vbcrlf
response.write "document.receiveaddr.useremail.focus();" & vbcrlf
response.write "return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "}" & vbcrlf
response.write "else" & vbcrlf
response.write "{" & vbcrlf
response.write "alert(""Email不能为空！"");" & vbcrlf
response.write "document.receiveaddr.useremail.focus();" & vbcrlf
response.write "return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "}" & vbcrlf
response.write "//------------------------" & vbcrlf
response.write "function checkspace(checkstr) {" & vbcrlf
response.write "var str = '';" & vbcrlf
response.write "for(i = 0; i < checkstr.length; i++) {" & vbcrlf
response.write "str = str + ' ';" & vbcrlf
response.write "}" & vbcrlf
response.write "return (str == checkstr);" & vbcrlf
response.write "}" & vbcrlf
response.write "function checkreceiveaddr()" & vbcrlf
response.write "{" & vbcrlf
response.write "if(checkspace(document.receiveaddr.recepit.value)) {" & vbcrlf
response.write " document.receiveaddr.recepit.focus();" & vbcrlf
response.write "alert(""对不起，请填写收货人姓名！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "if(checkspace(document.receiveaddr.city.value)) {" & vbcrlf
response.write " document.receiveaddr.city.focus();" & vbcrlf
response.write "alert(""对不起，请填写收货人所在省市！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "if(checkspace(document.receiveaddr.address.value)) {" & vbcrlf
response.write " document.receiveaddr.address.focus();" & vbcrlf
response.write "alert(""对不起，请填写收货人详细收货地址！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "if(checkspace(document.receiveaddr.postcode.value)) {" & vbcrlf
response.write " document.receiveaddr.postcode.focus();" & vbcrlf
response.write "alert(""对不起，请填写邮编！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "if(checkspace(document.receiveaddr.usertel.value)) {" & vbcrlf
response.write " document.receiveaddr.usertel.focus();" & vbcrlf
response.write "alert(""对不起，请留下您的电话！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "if(checkspace(document.receiveaddr.deliverymethord.value)) {" & vbcrlf
response.write " document.receiveaddr.deliverymethord.focus();" & vbcrlf
response.write "alert(""对不起，您还没有选择送货方式！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "if(checkspace(document.receiveaddr.paymethord.value)) {" & vbcrlf
response.write " document.receiveaddr.paymethord.focus();" & vbcrlf
response.write "alert(""对不起，您还没有选择支付方式！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "}" & vbcrlf
response.write " function regInput(obj, reg, inputStr)" & vbcrlf
response.write " {" & vbcrlf
response.write " var docSel = document.selection.createRange()" & vbcrlf
response.write " if (docSel.parentElement().tagName != ""INPUT"") return false" & vbcrlf
response.write " oSel = docSel.duplicate()" & vbcrlf
response.write " oSel.text = """"" & vbcrlf
response.write " var srcRange = obj.createTextRange()" & vbcrlf
response.write " oSel.setEndPoint(""StartToStart"", srcRange)" & vbcrlf
response.write " var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)" & vbcrlf
response.write " return reg.test(str)" & vbcrlf
response.write " }" & vbcrlf
response.write "function checkuserinfo()" & vbcrlf
response.write "{" & vbcrlf
response.write "if(document.userinfo.useremail.value.length!=0)" & vbcrlf
response.write "{" & vbcrlf
response.write "if (document.userinfo.useremail.value.charAt(0)==""."" ||" & vbcrlf
response.write "document.userinfo.useremail.value.charAt(0)==""@""||" & vbcrlf
response.write "document.userinfo.useremail.value.indexOf('@', 0) == -1 ||" & vbcrlf
response.write "document.userinfo.useremail.value.indexOf('.', 0) == -1 ||" & vbcrlf
response.write "document.userinfo.useremail.value.lastIndexOf(""@"")==document.userinfo.useremail.value.length-1 ||" & vbcrlf
response.write "document.userinfo.useremail.value.lastIndexOf(""."")==document.userinfo.useremail.value.length-1)" & vbcrlf
response.write "{" & vbcrlf
response.write "alert(""Email地址格式不正确！"");" & vbcrlf
response.write "document.userinfo.useremail.focus();" & vbcrlf
response.write "return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "}" & vbcrlf
response.write "else" & vbcrlf
response.write "{" & vbcrlf
response.write "alert(""Email不能为空！"");" & vbcrlf
response.write "document.userinfo.useremail.focus();" & vbcrlf
response.write "return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "}" & vbcrlf
response.write "function check0()" & vbcrlf
response.write "{" & vbcrlf
response.write "if(checkspace(document.shop0.username.value)) {" & vbcrlf
response.write " document.shop0.username.focus();" & vbcrlf
response.write "alert(""请输入您的用户名！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "}" & vbcrlf
response.write "function check1()" & vbcrlf
response.write "{" & vbcrlf
response.write "if(checkspace(document.shop1.answer.value)) {" & vbcrlf
response.write " document.shop1.answer.focus();" & vbcrlf
response.write "alert(""请填写密码答案！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "}" & vbcrlf
response.write "function check2()" & vbcrlf
response.write "{" & vbcrlf
response.write "if(checkspace(document.shop2.password1.value)) {" & vbcrlf
response.write " document.shop2.password1.focus();" & vbcrlf
response.write "alert(""请输入新密码！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "if(checkspace(document.shop2.password2.value)) {" & vbcrlf
response.write " document.shop2.password2.focus();" & vbcrlf
response.write "alert(""请输入确认密码！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "if(document.shop2.password1.value != document.shop2.password2.value) {" & vbcrlf
response.write " document.shop2.password1.focus();" & vbcrlf
response.write " document.shop2.password1.value = '';" & vbcrlf
response.write " document.shop2.password2.value = '';" & vbcrlf
response.write "alert(""两次输入的密码不同，请重新输入！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "}" & vbcrlf
response.write "function checkrepass()" & vbcrlf
response.write "{" & vbcrlf
response.write "if(checkspace(document.userpass.password.value)) {" & vbcrlf
response.write " document.userpass.password.focus();" & vbcrlf
response.write "alert(""对不起，请填写您的原密码！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "if(checkspace(document.userpass.password1.value)) {" & vbcrlf
response.write " document.userpass.password1.focus();" & vbcrlf
response.write "alert(""对不起，您还没有填新密码！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "if(checkspace(document.userpass.password2.value)) {" & vbcrlf
response.write " document.userpass.password2.focus();" & vbcrlf
response.write "alert(""对不起，您还没有填确认密码！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "if(document.userpass.password1.value != document.userpass.password2.value) {" & vbcrlf
response.write " document.userpass.password1.focus();" & vbcrlf
response.write " document.userpass.password1.value = '';" & vbcrlf
response.write " document.userpass.password2.value = '';" & vbcrlf
response.write "alert(""两次输入的密码不同，请重新输入！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "}" & vbcrlf
response.write "function checkuu()" & vbcrlf
response.write "{" & vbcrlf
response.write "if(checkspace(document.loginfo.username.value)) {" & vbcrlf
response.write " document.loginfo.username.focus();" & vbcrlf
response.write "alert(""用户名不能为空！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "if(checkspace(document.loginfo.password.value)) {" & vbcrlf
response.write " document.loginfo.password.focus();" & vbcrlf
response.write "alert(""密码不能为空！"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write "}" & vbcrlf
response.write "if(checkspace(document.loginfo.passcode.value)){" & vbcrlf
response.write " document.loginfo.passcode.focus();" & vbcrlf
response.write " alert(""验证码不能为空"");" & vbcrlf
response.write " return false;" & vbcrlf
response.write " }" & vbcrlf
response.write " " & vbcrlf
response.write "}" & vbcrlf
response.write "//-->" & vbcrlf
response.write "</script>" & vbcrlf
'ND_prod ND_SHOP_orders
Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32
Private m_lOnBits(30)
Private m_l2Power(30)
Private Function LShift(lValue, iShiftBits)
If iShiftBits = 0 Then
LShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And 1 Then
LShift = &H80000000
Else
LShift = 0
End If
Exit Function
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
Err.Raise 6
End If
If (lValue And m_l2Power(31 - iShiftBits)) Then
LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000
Else
LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
End If
End Function
Private Function RShift(lValue, iShiftBits)
If iShiftBits = 0 Then
RShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And &H80000000 Then
RShift = 1
Else
RShift = 0
End If
Exit Function
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
Err.Raise 6
End If
RShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits)
If (lValue And &H80000000) Then
RShift = (RShift Or (&H40000000 \ m_l2Power(iShiftBits - 1)))
End If
End Function
Private Function RotateLeft(lValue, iShiftBits)
RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))
End Function
Private Function AddUnsigned(lX, lY)
'dim lX4
'dim lY4
'dim lX8
'dim lY8
'dim lResult
lX8 = lX And &H80000000
lY8 = lY And &H80000000
lX4 = lX And &H40000000
lY4 = lY And &H40000000
lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)
If lX4 And lY4 Then
lResult = lResult Xor &H80000000 Xor lX8 Xor lY8
ElseIf lX4 Or lY4 Then
If lResult And &H40000000 Then
lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8
Else
lResult = lResult Xor &H40000000 Xor lX8 Xor lY8
End If
Else
lResult = lResult Xor lX8 Xor lY8
End If
AddUnsigned = lResult
End Function
Private Function md5_F(x, y, z)
md5_F = (x And y) Or ((Not x) And z)
End Function
Private Function md5_G(x, y, z)
md5_G = (x And z) Or (y And (Not z))
End Function
Private Function md5_H(x, y, z)
md5_H = (x Xor y Xor z)
End Function
Private Function md5_I(x, y, z)
md5_I = (y Xor (x Or (Not z)))
End Function
Private Sub md5_FF(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_F(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Private Sub md5_GG(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_G(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Private Sub md5_HH(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_H(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Private Sub md5_II(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_I(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Private Function ConvertToWordArray(sMessage)
'dim lMessageLength
'dim lNumberOfWords
'dim lWordArray()
'dim lBytePosition
'dim lByteCount
'dim lWordCount
Const MODULUS_BITS = 512
Const CONGRUENT_BITS = 448
lMessageLength = Len(sMessage)
lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD)
redim lWordArray(lNumberOfWords - 1)
lBytePosition = 0
lByteCount = 0
Do Until lByteCount >= lMessageLength
lWordCount = lByteCount \ BYTES_TO_A_WORD
lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition)
lByteCount = lByteCount + 1
Loop
lWordCount = lByteCount \ BYTES_TO_A_WORD
lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition)
lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3)
lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29)
ConvertToWordArray = lWordArray
End Function
Private Function WordToHex(lValue)
'dim lByte
'dim lCount
For lCount = 0 To 3
lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1)
WordToHex = WordToHex & Right("0" & Hex(lByte), 2)
Next
End Function
Public Function MD5x(sMessage)
m_lOnBits(0) = CLng(1)
m_lOnBits(1) = CLng(3)
m_lOnBits(2) = CLng(7)
m_lOnBits(3) = CLng(15)
m_lOnBits(4) = CLng(31)
m_lOnBits(5) = CLng(63)
m_lOnBits(6) = CLng(127)
m_lOnBits(7) = CLng(255)
m_lOnBits(8) = CLng(511)
m_lOnBits(9) = CLng(1023)
m_lOnBits(10) = CLng(2047)
m_lOnBits(11) = CLng(4095)
m_lOnBits(12) = CLng(8191)
m_lOnBits(13) = CLng(16383)
m_lOnBits(14) = CLng(32767)
m_lOnBits(15) = CLng(65535)
m_lOnBits(16) = CLng(131071)
m_lOnBits(17) = CLng(262143)
m_lOnBits(18) = CLng(524287)
m_lOnBits(19) = CLng(1048575)
m_lOnBits(20) = CLng(2097151)
m_lOnBits(21) = CLng(4194303)
m_lOnBits(22) = CLng(8388607)
m_lOnBits(23) = CLng(16777215)
m_lOnBits(24) = CLng(33554431)
m_lOnBits(25) = CLng(67108863)
m_lOnBits(26) = CLng(134217727)
m_lOnBits(27) = CLng(268435455)
m_lOnBits(28) = CLng(536870911)
m_lOnBits(29) = CLng(1073741823)
m_lOnBits(30) = CLng(2147483647)
m_l2Power(0) = CLng(1)
m_l2Power(1) = CLng(2)
m_l2Power(2) = CLng(4)
m_l2Power(3) = CLng(8)
m_l2Power(4) = CLng(16)
m_l2Power(5) = CLng(32)
m_l2Power(6) = CLng(64)
m_l2Power(7) = CLng(128)
m_l2Power(8) = CLng(256)
m_l2Power(9) = CLng(512)
m_l2Power(10) = CLng(1024)
m_l2Power(11) = CLng(2048)
m_l2Power(12) = CLng(4096)
m_l2Power(13) = CLng(8192)
m_l2Power(14) = CLng(16384)
m_l2Power(15) = CLng(32768)
m_l2Power(16) = CLng(65536)
m_l2Power(17) = CLng(131072)
m_l2Power(18) = CLng(262144)
m_l2Power(19) = CLng(524288)
m_l2Power(20) = CLng(1048576)
m_l2Power(21) = CLng(2097152)
m_l2Power(22) = CLng(4194304)
m_l2Power(23) = CLng(8388608)
m_l2Power(24) = CLng(16777216)
m_l2Power(25) = CLng(33554432)
m_l2Power(26) = CLng(67108864)
m_l2Power(27) = CLng(134217728)
m_l2Power(28) = CLng(268435456)
m_l2Power(29) = CLng(536870912)
m_l2Power(30) = CLng(1073741824)
'dim x
'dim k
'dim AA
'dim BB
'dim CC
'dim DD
'dim a
'dim b
'dim c
'dim d
Const S11 = 7
Const S12 = 12
Const S13 = 17
Const S14 = 22
Const S21 = 5
Const S22 = 9
Const S23 = 14
Const S24 = 20
Const S31 = 4
Const S32 = 11
Const S33 = 16
Const S34 = 23
Const S41 = 6
Const S42 = 10
Const S43 = 15
Const S44 = 21
x = ConvertToWordArray(sMessage)
a = &H67452301
b = &HEFCDAB89
c = &H98BADCFE
d = &H10325476
For k = 0 To UBound(x) Step 16
AA = a
BB = b
CC = c
DD = d
md5_FF a, b, c, d, x(k + 0), S11, &HD76AA478
md5_FF d, a, b, c, x(k + 1), S12, &HE8C7B756
md5_FF c, d, a, b, x(k + 2), S13, &H242070DB
md5_FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE
md5_FF a, b, c, d, x(k + 4), S11, &HF57C0FAF
md5_FF d, a, b, c, x(k + 5), S12, &H4787C62A
md5_FF c, d, a, b, x(k + 6), S13, &HA8304613
md5_FF b, c, d, a, x(k + 7), S14, &HFD469501
md5_FF a, b, c, d, x(k + 8), S11, &H698098D8
md5_FF d, a, b, c, x(k + 9), S12, &H8B44F7AF
md5_FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1
md5_FF b, c, d, a, x(k + 11), S14, &H895CD7BE
md5_FF a, b, c, d, x(k + 12), S11, &H6B901122
md5_FF d, a, b, c, x(k + 13), S12, &HFD987193
md5_FF c, d, a, b, x(k + 14), S13, &HA679438E
md5_FF b, c, d, a, x(k + 15), S14, &H49B40821
md5_GG a, b, c, d, x(k + 1), S21, &HF61E2562
md5_GG d, a, b, c, x(k + 6), S22, &HC040B340
md5_GG c, d, a, b, x(k + 11), S23, &H265E5A51
md5_GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA
md5_GG a, b, c, d, x(k + 5), S21, &HD62F105D
md5_GG d, a, b, c, x(k + 10), S22, &H2441453
md5_GG c, d, a, b, x(k + 15), S23, &HD8A1E681
md5_GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8
md5_GG a, b, c, d, x(k + 9), S21, &H21E1CDE6
md5_GG d, a, b, c, x(k + 14), S22, &HC33707D6
md5_GG c, d, a, b, x(k + 3), S23, &HF4D50D87
md5_GG b, c, d, a, x(k + 8), S24, &H455A14ED
md5_GG a, b, c, d, x(k + 13), S21, &HA9E3E905
md5_GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8
md5_GG c, d, a, b, x(k + 7), S23, &H676F02D9
md5_GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A
md5_HH a, b, c, d, x(k + 5), S31, &HFFFA3942
md5_HH d, a, b, c, x(k + 8), S32, &H8771F681
md5_HH c, d, a, b, x(k + 11), S33, &H6D9D6122
md5_HH b, c, d, a, x(k + 14), S34, &HFDE5380C
md5_HH a, b, c, d, x(k + 1), S31, &HA4BEEA44
md5_HH d, a, b, c, x(k + 4), S32, &H4BDECFA9
md5_HH c, d, a, b, x(k + 7), S33, &HF6BB4B60
md5_HH b, c, d, a, x(k + 10), S34, &HBEBFBC70
md5_HH a, b, c, d, x(k + 13), S31, &H289B7EC6
md5_HH d, a, b, c, x(k + 0), S32, &HEAA127FA
md5_HH c, d, a, b, x(k + 3), S33, &HD4EF3085
md5_HH b, c, d, a, x(k + 6), S34, &H4881D05
md5_HH a, b, c, d, x(k + 9), S31, &HD9D4D039
md5_HH d, a, b, c, x(k + 12), S32, &HE6DB99E5
md5_HH c, d, a, b, x(k + 15), S33, &H1FA27CF8
md5_HH b, c, d, a, x(k + 2), S34, &HC4AC5665
md5_II a, b, c, d, x(k + 0), S41, &HF4292244
md5_II d, a, b, c, x(k + 7), S42, &H432AFF97
md5_II c, d, a, b, x(k + 14), S43, &HAB9423A7
md5_II b, c, d, a, x(k + 5), S44, &HFC93A039
md5_II a, b, c, d, x(k + 12), S41, &H655B59C3
md5_II d, a, b, c, x(k + 3), S42, &H8F0CCC92
md5_II c, d, a, b, x(k + 10), S43, &HFFEFF47D
md5_II b, c, d, a, x(k + 1), S44, &H85845DD1
md5_II a, b, c, d, x(k + 8), S41, &H6FA87E4F
md5_II d, a, b, c, x(k + 15), S42, &HFE2CE6E0
md5_II c, d, a, b, x(k + 6), S43, &HA3014314
md5_II b, c, d, a, x(k + 13), S44, &H4E0811A1
md5_II a, b, c, d, x(k + 4), S41, &HF7537E82
md5_II d, a, b, c, x(k + 11), S42, &HBD3AF235
md5_II c, d, a, b, x(k + 2), S43, &H2AD7D2BB
md5_II b, c, d, a, x(k + 9), S44, &HEB86D391
a = AddUnsigned(a, AA)
b = AddUnsigned(b, BB)
c = AddUnsigned(c, CC)
d = AddUnsigned(d, DD)
Next
MD5x=LCase(WordToHex(b) & WordToHex(c)& WordToHex(a)& WordToHex(b)& WordToHex(c)& WordToHex(a))
End Function
Public Function MD5s(sMessage)
m_lOnBits(0) = CLng(1)
m_lOnBits(1) = CLng(3)
m_lOnBits(2) = CLng(7)
m_lOnBits(3) = CLng(15)
m_lOnBits(4) = CLng(31)
m_lOnBits(5) = CLng(63)
m_lOnBits(6) = CLng(127)
m_lOnBits(7) = CLng(255)
m_lOnBits(8) = CLng(511)
m_lOnBits(9) = CLng(1023)
m_lOnBits(10) = CLng(2047)
m_lOnBits(11) = CLng(4095)
m_lOnBits(12) = CLng(8191)
m_lOnBits(13) = CLng(16383)
m_lOnBits(14) = CLng(32767)
m_lOnBits(15) = CLng(65535)
m_lOnBits(16) = CLng(131071)
m_lOnBits(17) = CLng(262143)
m_lOnBits(18) = CLng(524287)
m_lOnBits(19) = CLng(1048575)
m_lOnBits(20) = CLng(2097151)
m_lOnBits(21) = CLng(4194303)
m_lOnBits(22) = CLng(8388607)
m_lOnBits(23) = CLng(16777215)
m_lOnBits(24) = CLng(33554431)
m_lOnBits(25) = CLng(67108863)
m_lOnBits(26) = CLng(134217727)
m_lOnBits(27) = CLng(268435455)
m_lOnBits(28) = CLng(536870911)
m_lOnBits(29) = CLng(1073741823)
m_lOnBits(30) = CLng(2147483647)
m_l2Power(0) = CLng(1)
m_l2Power(1) = CLng(2)
m_l2Power(2) = CLng(4)
m_l2Power(3) = CLng(8)
m_l2Power(4) = CLng(16)
m_l2Power(5) = CLng(32)
m_l2Power(6) = CLng(64)
m_l2Power(7) = CLng(128)
m_l2Power(8) = CLng(256)
m_l2Power(9) = CLng(512)
m_l2Power(10) = CLng(1024)
m_l2Power(11) = CLng(2048)
m_l2Power(12) = CLng(4096)
m_l2Power(13) = CLng(8192)
m_l2Power(14) = CLng(16384)
m_l2Power(15) = CLng(32768)
m_l2Power(16) = CLng(65536)
m_l2Power(17) = CLng(131072)
m_l2Power(18) = CLng(262144)
m_l2Power(19) = CLng(524288)
m_l2Power(20) = CLng(1048576)
m_l2Power(21) = CLng(2097152)
m_l2Power(22) = CLng(4194304)
m_l2Power(23) = CLng(8388608)
m_l2Power(24) = CLng(16777216)
m_l2Power(25) = CLng(33554432)
m_l2Power(26) = CLng(67108864)
m_l2Power(27) = CLng(134217728)
m_l2Power(28) = CLng(268435456)
m_l2Power(29) = CLng(536870912)
m_l2Power(30) = CLng(1073741824)
'dim x
'dim k
'dim AA
'dim BB
'dim CC
'dim DD
'dim a
'dim b
'dim c
'dim d
Const S11 = 7
Const S12 = 12
Const S13 = 17
Const S14 = 22
Const S21 = 5
Const S22 = 9
Const S23 = 14
Const S24 = 20
Const S31 = 4
Const S32 = 11
Const S33 = 16
Const S34 = 23
Const S41 = 6
Const S42 = 10
Const S43 = 15
Const S44 = 21
x = ConvertToWordArray(sMessage)
a = &H67452301
b = &HEFCDAB89
c = &H98BADCFE
d = &H10325476
For k = 0 To UBound(x) Step 16
AA = a
BB = b
CC = c
DD = d
md5_FF a, b, c, d, x(k + 0), S11, &HD76AA478
md5_FF d, a, b, c, x(k + 1), S12, &HE8C7B756
md5_FF c, d, a, b, x(k + 2), S13, &H242070DB
md5_FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE
md5_FF a, b, c, d, x(k + 4), S11, &HF57C0FAF
md5_FF d, a, b, c, x(k + 5), S12, &H4787C62A
md5_FF c, d, a, b, x(k + 6), S13, &HA8304613
md5_FF b, c, d, a, x(k + 7), S14, &HFD469501
md5_FF a, b, c, d, x(k + 8), S11, &H698098D8
md5_FF d, a, b, c, x(k + 9), S12, &H8B44F7AF
md5_FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1
md5_FF b, c, d, a, x(k + 11), S14, &H895CD7BE
md5_FF a, b, c, d, x(k + 12), S11, &H6B901122
md5_FF d, a, b, c, x(k + 13), S12, &HFD987193
md5_FF c, d, a, b, x(k + 14), S13, &HA679438E
md5_FF b, c, d, a, x(k + 15), S14, &H49B40821
md5_GG a, b, c, d, x(k + 1), S21, &HF61E2562
md5_GG d, a, b, c, x(k + 6), S22, &HC040B340
md5_GG c, d, a, b, x(k + 11), S23, &H265E5A51
md5_GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA
md5_GG a, b, c, d, x(k + 5), S21, &HD62F105D
md5_GG d, a, b, c, x(k + 10), S22, &H2441453
md5_GG c, d, a, b, x(k + 15), S23, &HD8A1E681
md5_GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8
md5_GG a, b, c, d, x(k + 9), S21, &H21E1CDE6
md5_GG d, a, b, c, x(k + 14), S22, &HC33707D6
md5_GG c, d, a, b, x(k + 3), S23, &HF4D50D87
md5_GG b, c, d, a, x(k + 8), S24, &H455A14ED
md5_GG a, b, c, d, x(k + 13), S21, &HA9E3E905
md5_GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8
md5_GG c, d, a, b, x(k + 7), S23, &H676F02D9
md5_GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A
md5_HH a, b, c, d, x(k + 5), S31, &HFFFA3942
md5_HH d, a, b, c, x(k + 8), S32, &H8771F681
md5_HH c, d, a, b, x(k + 11), S33, &H6D9D6122
md5_HH b, c, d, a, x(k + 14), S34, &HFDE5380C
md5_HH a, b, c, d, x(k + 1), S31, &HA4BEEA44
md5_HH d, a, b, c, x(k + 4), S32, &H4BDECFA9
md5_HH c, d, a, b, x(k + 7), S33, &HF6BB4B60
md5_HH b, c, d, a, x(k + 10), S34, &HBEBFBC70
md5_HH a, b, c, d, x(k + 13), S31, &H289B7EC6
md5_HH d, a, b, c, x(k + 0), S32, &HEAA127FA
md5_HH c, d, a, b, x(k + 3), S33, &HD4EF3085
md5_HH b, c, d, a, x(k + 6), S34, &H4881D05
md5_HH a, b, c, d, x(k + 9), S31, &HD9D4D039
md5_HH d, a, b, c, x(k + 12), S32, &HE6DB99E5
md5_HH c, d, a, b, x(k + 15), S33, &H1FA27CF8
md5_HH b, c, d, a, x(k + 2), S34, &HC4AC5665
md5_II a, b, c, d, x(k + 0), S41, &HF4292244
md5_II d, a, b, c, x(k + 7), S42, &H432AFF97
md5_II c, d, a, b, x(k + 14), S43, &HAB9423A7
md5_II b, c, d, a, x(k + 5), S44, &HFC93A039
md5_II a, b, c, d, x(k + 12), S41, &H655B59C3
md5_II d, a, b, c, x(k + 3), S42, &H8F0CCC92
md5_II c, d, a, b, x(k + 10), S43, &HFFEFF47D
md5_II b, c, d, a, x(k + 1), S44, &H85845DD1
md5_II a, b, c, d, x(k + 8), S41, &H6FA87E4F
md5_II d, a, b, c, x(k + 15), S42, &HFE2CE6E0
md5_II c, d, a, b, x(k + 6), S43, &HA3014314
md5_II b, c, d, a, x(k + 13), S44, &H4E0811A1
md5_II a, b, c, d, x(k + 4), S41, &HF7537E82
md5_II d, a, b, c, x(k + 11), S42, &HBD3AF235
md5_II c, d, a, b, x(k + 2), S43, &H2AD7D2BB
md5_II b, c, d, a, x(k + 9), S44, &HEB86D391
a = AddUnsigned(a, AA)
b = AddUnsigned(b, BB)
c = AddUnsigned(c, CC)
d = AddUnsigned(d, DD)
Next
MD5s=LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d))
End Function
Public Function MD5(sMessage)
MD5=MD5x(MD5x(MD5x(MD5x(sMessage))))
End Function
action=request("action")
if session("nd_cache_logined_user")="" then
if request.cookies("nd_cc_cache_logined_user")="" then
uuuaa=""
else
uuuaa=request.cookies("nd_cc_cache_logined_user")
end if
else
uuuaa=session("nd_cache_logined_user")
end if
if uuuaa="" and action<>"repass" and request("action2")<>"repass" then
response.Write "·请先<a href=$page$vip_login_page$>[登陆]</a>,<a href=$page$cp_vip_user_page$?action=repass>[找回密码]</a>"
response.end
else
select case action
case "login"
loginnum()
case "addtocart"
addtocart()
case "receiveaddr"
receiveaddr()
case "deposit"
deposit()
case "customerinfo"
customerinfo()
case "changepass"
changepass()
case "repass"
repass()
case "statinfo"
statinfo()
case "goods"
goodss()
case "addto_p_del"
addto_p_del()
case "addto_p_show"
addtocart()
case "addto_p"
if request("action2")="add" then
addto_p_add()
end if
case "saveprofile_p"
saveprofile_p()
case "chkorder_p"
chkorder_p()
case "save_p"
save_p()
case "cart_p"
cart_p()
case "caiwulist"
caiwulist()
case "congzhi"
congzhi()
case "zhifuit"
zhifuit()
end select
end if
function findx_pricea(str)
grade_id=""
set rs2ss1=server.CreateObject("adodb.recordset")
rs2ss1.open "select * from [ND_user] where [username]='"&uuuaa&"'",conn,1,1
if not rs2ss1.eof then
grade_id=rs2ss1("lever_id")
end if
rst2="9999"
if str<>"" then
other_params=split(str,"|")
for i=0 to ubound(other_params)
sss11=split(other_params(i),":")
sss11a=sss11(0)
sss11b=sss11(1)
if cstr(sss11a)=cstr(grade_id) then
rst2=sss11b
exit for
end if
next
end if
if isnumeric(rst2)<>true then
rst2="9999"
end if
findx_pricea=rst2
end function
'----------------------------addto_add---------------------
sub addto_p_add
id=request.QueryString("id")
username=uuuaa
set rs=server.CreateObject("adodb.recordset")
rs.open "select id,username from ND_SHOP_orders where username='"&username&"' and id="&id&" and state=6",conn,1,1
if not rs.eof and not rs.bof then
response.write "<script language=javascript>alert('对不起，此商品已存在于您的购物车中！');self.location='$page$cp_vip_user_page$?action=addto_p_show';</script>"
response.end
rs.close
set rs=nothing
else
rs.close
rs.open "select id,username,state,paid from ND_SHOP_orders",conn,1,3
rs.addnew
rs("id")=id
rs("username")=username
rs("state")=6
rs("paid")=0
rs.update
rs.close
response.Redirect "$page$cp_vip_user_page$?action=addto_p_show"
set rs=nothing
end if
end sub
'---------------------------addto_add--------------------------
'----------------------------addto---------------------
sub addto_p_del
action=request.QueryString("action")
username=uuuaa
id=request.QueryString("id")
conn.execute "delete from ND_SHOP_orders where actionid="&request.QueryString("actionid")
if request.QueryString("ll")=22 then
response.redirect "$page$cp_vip_user_page$?action=addtocart"
else
response.redirect "$page$cp_vip_user_page$?action=addto_p_show"
end if
response.End
end sub
'---------------------------addto--------------------------
'ND_prod ND_SHOP_orders
'----------------------------add_p---------------------
sub addto_p
action=request.QueryString("action2")
username=uuuaa
id=request.QueryString("id")
select case action
case "add"
set rs=server.CreateObject("adodb.recordset")
rs.open "select id,username from ND_SHOP_orders where username='"&username&"' and id="&id&" and state=6",conn,1,1
if not rs.eof and not rs.bof then
response.write "<script language=javascript>alert('对不起，此商品已存在于您的购物车中！');self.location='$page$cp_vip_user_page$?action=addto_p_show';</script>"
response.end
rs.close
set rs=nothing
else
rs.close
rs.open "select id,username,state,paid from ND_SHOP_orders",conn,1,3
rs.addnew
rs("id")=id
rs("username")=username
rs("state")=6
rs("paid")=0
rs.update
rs.close
response.Redirect "$page$cp_vip_user_page$?action=addto_p_show"
set rs=nothing
end if
end select
end sub
'---------------------------add_p--------------------------
function HTMLEncode2(fString)
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode2 = fString
end function
'ND_prod ND_SHOP_orders
'----------------------------cart_p---------------------
sub cart_p
username=uuuaa
action=request.QueryString("action2")
if request.QueryString("id")="" then
id=request.form("id")
else
id=request.QueryString("id")
end if
if id="" then
response.write "<script language=javascript>alert('对不起，您还没有选择商品！');history.go(-1);</script>"
response.End
end if
select case action
case ""
response.write "<table width=""98%"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"" bgcolor=""e1e1e1"" >" & vbcrlf
response.write "<form name=""form1"" method=""post"" action=""$page$cp_vip_user_page$"">" & vbcrlf
response.write "<tr align=""center"" height=""20"" bgcolor=""ffffff"">" & vbcrlf
response.write "<td align=""center"">商品名称</td>" & vbcrlf
response.write "<td width=""8%"" >市场价</td>" & vbcrlf
response.write "<td width=""8%"" >对您的价格</td>" & vbcrlf
response.write "<td width=""7%"">数量</td>" & vbcrlf
response.write "<td width=""6%"">送你的积分</td>" & vbcrlf
response.write "<td width=""9%"">小计</td>" & vbcrlf
response.write "<td width=""10%"">修改数量</td>" & vbcrlf
response.write "</tr>" & vbcrlf
set rs=server.CreateObject("adodb.recordset")
rs.open "select id,title,price1,price2_gradelist,score from ND_prod where id in ("&id&") order by id",conn,1,1
sum1=0
sums1=0
bookscount=request.QueryString("id").count
do while not rs.eof
strscore=rs("score")
strprice1=rs("price1")
strprice2=rs("price2_gradelist")
Quatity = CInt( Request.form( "shop"&rs("id")) )
If Quatity <=0 Then Quatity = 1
response.write "<tr align=""center"">" & vbcrlf
response.write "<td align=""center"" bgcolor=""ffffff"" style='PADDING-LEFT: 5px'>" & trim(rs("title"))
response.write "</td>" & vbcrlf
response.write "<td bgcolor=""ffffff"" >" & rs("price1") & "元</td>" & vbcrlf
response.write "<input type=hidden name=price1 value=" & strprice1 & ">" & vbcrlf
response.write "<td bgcolor=""ffffff"">" & findx_pricea(rs("price2_gradelist")) & "元</td>" & vbcrlf
response.write "<input type=hidden name=price2 value=" & strprice2 & ">" & vbcrlf
response.write "<td bgcolor=""ffffff""><input name=""" & "shop"& rs("id") & """ type=""text"" size=""3"" value=""" & Quatity & """ onKeyPress= ""return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))""onpaste = ""return regInput(this,/^[0-9]*$/, window.clipboardData.getData('Text'))""ondrop= ""return regInput(this,/^[0-9]*$/,event.dataTransfer.getData('Text'))""> </td>" & vbcrlf
response.write " <td bgcolor=""ffffff"">" & vbcrlf
response.write " " & vbcrlf
if Quatity<=1 then
response.write " " & strscore & "分" & vbcrlf
response.write " " & vbcrlf
else
response.write " " & strscore*Quatity & "分" & vbcrlf
response.write " " & vbcrlf
end if
sums1=strscore*Quatity+sums1
response.write "<td bgcolor=""ffffff"">"
txtvip = "会员"
if Quatity<=1 then
response.write findx_pricea(rs("price2_gradelist"))*1&"元"
else
response.write findx_pricea(rs("price2_gradelist"))*Quatity&"元"
end if
sum1=findx_pricea(rs("price2_gradelist"))*Quatity+sum1
response.write "</td><td align=""center"" bgcolor=""ffffff""><input type=""submit"" name=""Submit"" value=""修改"" onClick=""this.form.action='$page$cp_vip_user_page$?action=cart_p&id=" & id & "';this.form.submit()"">" & vbcrlf
response.write "</td>" & vbcrlf
response.write "</tr>" & vbcrlf
if bookscount=1 then books=rs("id")
rs.movenext
loop
rs.close
set rs=nothing
response.write "<tr height=""20"">" & vbcrlf
response.write "<td colspan=""9"" bgcolor=""ffffff"">你是 <font color=""#FF0000"">" & vbcrlf
response.write txtvip & "</font>" & vbcrlf
response.write " 费用总计：<font color=""#FF0000"">" & sum1 & "</font> 元，获得积分：<font color=""#FF0000"">" & sums1 & "</font> 分</font></td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr >" & vbcrlf
response.write "<td height=""32"" colspan=""9"" align=""center"" bgcolor=""ffffff""><input type=""submit"" name=""Submit2"" style=""height:20; font:9pt; BORDER-BOTTOM: #FFFFFF 1px groove; BORDER-RIGHT: #FFFFFF 1px groove; BACKGROUND-COLOR:" & bgclr1 & """value=""下一步"" onClick=""this.form.action='$page$cp_vip_user_page$?action=cart_p&action2=shop1&id=" & id & "';this.form.submit()"" >" & vbcrlf
response.write " " & vbcrlf
if bookscount=1 then
response.write "<input type=""button"" name=""Submit22"" style=""height:20; font:9pt; BORDER-BOTTOM: #FFFFFF 1px groove; BORDER-RIGHT: #FFFFFF 1px groove; BACKGROUND-COLOR:" & bgclr1 & """value=""放入购物车"" onClick=""location.href='$page$cp_vip_user_page$?action=addto_p&id=" & books & "&action2=add'"">" & vbcrlf
end if
response.write "</td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "</form>" & vbcrlf
response.write "</table>" & vbcrlf
'ND_prod ND_SHOP_orders
case "shop1"
username=uuuaa
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [nd_user] where username='"&username&"'",conn,1,1
userid=rs("id")
response.write "<table width=""98%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbcrlf
response.write "<tr><td>" & vbcrlf
response.write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"" bgcolor=""e1e1e1"" >" & vbcrlf
response.write "<form name=""receiveaddr"" method=""post"" action=""$page$cp_vip_user_page$?action=cart_p&action2=ok&id=" & id & "&userid=" & userid & """>" & vbcrlf
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select id from ND_prod where id in ("&id&") order by id",conn,1,1
do while not rs2.eof
response.write "<input name=""" & "shop"&rs2("id") & """ type=""hidden"" value=""" & cint(request.form("shop"&rs2("id"))) & """>" & vbcrlf
rs2.movenext
loop
rs2.close
set rs2=nothing
response.write "<tr >" & vbcrlf
response.write " <input type=""hidden"" name=""realname"" value=""" & rs("realname") & """ />" & vbcrlf
response.write "<td width=""150"" bgcolor=""ffffff"" style='PADDING-LEFT: 6px'><b>收货人姓名：</b></td>" & vbcrlf
response.write "<td width=""600"" height=""28"" bgcolor=""ffffff"">" & vbcrlf
response.write "<input name=""recepit"" type=""text"" id=""recepit"" size=""12"" value=" & trim(rs("recepit")) & ">" & vbcrlf
response.write " <b>性 别：</b>" & "<select name=sex id=sex>"
select case rs("sex")
case ""
response.write "<option value=0 selected>男</option><option value=1>女</option>"
case "1"
response.write "<option value=0 selected>男</option><option value=1>女</option>"
case "0"
response.write "<option value=0 >男</option><option value=1 selected>女</option>"
end select%><%=" </select>"%><%
response.write "</td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr >" & vbcrlf
response.write "<td bgcolor=""ffffff"" style='PADDING-LEFT: 6px'><b>收货人详细地址：</b></td>" & vbcrlf
response.write "<td height=""28"" bgcolor=""ffffff""><input name=""address"" type=""text"" id=""address"" size=""40"" value=" & trim(rs("addr_for_buy")) & "></td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr >" & vbcrlf
response.write "<td bgcolor=""ffffff"" style='PADDING-LEFT: 6px'><b>邮 编：</b></td>" & vbcrlf
response.write "<td height=""28"" bgcolor=""ffffff""><input name=""postcode"" type=""text"" id=""postcode"" size=""10"" value=" & rs("youbian") & "></td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr >" & vbcrlf
response.write "<td bgcolor=""ffffff"" style='PADDING-LEFT: 6px'><b>电 话：</b></td>" & vbcrlf
response.write "<td height=""28"" bgcolor=""ffffff""><input name=""usertel"" type=""text"" id=""usertel"" size=""12"" value=" & trim(rs("tel")) & "></td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr >" & vbcrlf
response.write "<td bgcolor=""ffffff"" style='PADDING-LEFT: 6px'><b>电子邮件：</b></td>" & vbcrlf
response.write "<td height=""28"" bgcolor=""ffffff""><input name=""useremail"" type=""text"" id=""useremail"" value=" & trim(rs("email")) & "></td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr >" & vbcrlf
response.write "<td bgcolor=""ffffff"" style='PADDING-LEFT: 6px'><b>送货方式：</b></td>" & vbcrlf
response.write "<td height=""28"" bgcolor=""ffffff"">" & vbcrlf
set rs3=server.CreateObject("adodb.recordset")
rs3.Open "select * from delivery where methord=0 order by deliveryidorder",conn,1,1
response.Write "<select name=deliverymethord size=1 id=deliverymethord>"
do while not rs3.EOF
response.Write "<option value="&rs3("deliveryid")
response.Write ">"
response.Write trim(rs3("subject"))&"</option>"
rs3.MoveNext
loop
response.Write "</select>"
rs3.Close
set rs3=nothing
response.write "<b> 送货上门限制于本市</b>" & vbcrlf
response.write "<br />" & vbcrlf
response.write "</td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr >" & vbcrlf
response.write "<td bgcolor=""ffffff"" style='PADDING-LEFT: 6px'><b>支付方式：</b></td>" & vbcrlf
response.write "<td height=""28"" bgcolor=""ffffff"">" & vbcrlf
set rs3=server.CreateObject("adodb.recordset")
rs3.open "select * from delivery where methord=1 order by deliveryidorder",conn,1,1
response.Write "<select name=paymethord size=1 id=paymethord>"
do while not rs3.eof
response.Write "<option value="&rs3("deliveryid")
response.Write ">"
response.Write trim(rs3("subject"))&"</option>"
rs3.movenext
loop
response.Write "</select>"
rs3.close
set rs3=nothing
rs.close
set rs=nothing
response.write "</td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr >" & vbcrlf
response.write "<td valign=""top"" bgcolor=""ffffff"" style='PADDING-LEFT: 6px'><b>简单留言：</b></td>" & vbcrlf
response.write "<td height=""28"" bgcolor=""ffffff""><textarea name=""comments"" cols=""40"" rows=""5"" id=""comments""></textarea></td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr >" & vbcrlf
response.write " <td bgcolor=""ffffff""></td>" & vbcrlf
response.write "<td bgcolor=""ffffff""><input type=""submit"" name=""Submit3"" style=""height:20; font:9pt; BORDER-BOTTOM: #FFFFFF 1px groove; BORDER-RIGHT: #FFFFFF 1px groove; BACKGROUND-COLOR:" & bgclr1 & """value=""提交订单"" onClick=""return ssother();""></td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "</form>" & vbcrlf
response.write "</table> </td>" & vbcrlf
response.write "</tr> </table>" & vbcrlf
case "ok"
username=uuuaa
'ND_prod ND_SHOP_orders
if session("myorder")<>minute(now) then
shijian=now()
Randomize '初始化随机数生成器。
rnddd = cstr(clng(Rnd(255)*99999)) '产生随机数
goods=cstr(year(shijian))&cstr(month(shijian))&cstr(day(shijian))&cstr(hour(shijian))&cstr(minute(shijian))&cstr(second(shijian))&"_"&rnddd
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select id,title,score,price1,price2_gradelist from ND_prod where id in ("&id&") order by id ",conn,1,1
goods=cstr(year(shijian))&cstr(month(shijian))&cstr(day(shijian))&cstr(hour(shijian))&cstr(minute(shijian))&cstr(second(shijian))&"_"&rnddd
do while not rs2.eof
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from ND_SHOP_orders",conn,1,3
rs.addnew
rs("username")=username
rs("id")=rs2("id")
rs("actiondate")=shijian
rs("productnum")=CInt(Request.form("shop"&rs2("id")))
rs("state")=1
rs("goods")=goods
rs("postcode")=int(request.form("postcode"))
rs("recepit")=trim(request.form("recepit"))
rs("address")=trim(request.form("address"))
rs("paymethord")=int(request.form("paymethord"))
rs("deliverymethord")=request.form("deliverymethord")
rs("sex")=int(request.form("sex"))
rs("comments")=HTMLEncode2(trim(request.form("comments")))
set rsvip=server.CreateObject("adodb.recordset")
rsvip.open "select * from [nd_user] where username='"&username&"' ",conn,1,1
if findx_pricea(rs2("price2_gradelist"))="" then
sssa=100
else
sssa=cdbl(findx_pricea(rs2("price2_gradelist")))
end if
rs("paid")=sssa*Clng(Request.form("shop"&rs2("id")))
rs("realname")=trim(request.form("realname"))
rs("score")=Clng(rs2("score"))*CInt(Request.form("shop"&rs2("id")))
rs("useremail")=trim(request.form("useremail"))
rs("usertel")=trim(request.form("usertel"))
rs("userid")=request.QueryString("userid")
rs.update
rs.close
set rs=nothing
conn.execute "delete from ND_SHOP_orders where username='"&username&"' and id in ("&id&") and state=6"
rs2.movenext
loop
rs2.close
set rs2=nothing
session("myorder")=minute(now)
else
response.Write "<center>您不能重复提交，请在2分钟后再提交！</center>"
response.End
end if
'ND_prod ND_SHOP_orders
set rs=server.CreateObject("adodb.recordset")
rs.open "select ND_prod.id,ND_prod.title,ND_prod.price1,ND_prod.price2_gradelist,ND_prod.score,ND_SHOP_orders.sex,ND_SHOP_orders.realname,ND_SHOP_orders.recepit,ND_SHOP_orders.goods,ND_SHOP_orders.postcode,ND_SHOP_orders.comments,ND_SHOP_orders.paid,ND_SHOP_orders.productnum,ND_SHOP_orders.deliverymethord from ND_prod inner join ND_SHOP_orders on ND_prod.id=ND_SHOP_orders.id where ND_SHOP_orders.username='"&username&"' and state=1 and goods='"&goods&"' ",conn,1,1
dim strgoods
strgoods=cstr(trim(rs("goods")))
response.write "<table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbcrlf
response.write "<tr> <td>" & vbcrlf
response.write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"" bgcolor=""f1f1f1"">" & vbcrlf
response.write "<tr> <td height=""25"" colspan=""2"" align=""center"" bgcolor=""ffffff""><B>恭喜" & vbcrlf
response.write "<font color=""ff0000"">" & username & "</font>，您已成功的提交了此订单！详细信息如下：</B>" & vbcrlf
response.write "</td></tr>" & vbcrlf
response.write "<tr> <td height=""18"" colspan=""2"" bgcolor=""ffffff"" >订单号：<font color=#FF6600>" & strgoods & "</font></td></tr>" & vbcrlf
response.write "<tr>" & vbcrlf
response.write "<td height=""18"" colspan=""2"" bgcolor=ffffff><br />" & vbcrlf
response.write "<table width=""95%"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"" bgcolor=""e1e1e1"">" & vbcrlf
response.write "<tr align=""center"">" & vbcrlf
response.write "<td bgcolor=""#FFFFFF"">商品名称</td>" & vbcrlf
response.write "<td bgcolor=""#FFFFFF"">市场价</td>" & vbcrlf
response.write "<td bgcolor=""#FFFFFF"">对您的价格</td>" & vbcrlf
response.write "<td bgcolor=""#FFFFFF"">数量</td>" & vbcrlf
response.write "<td bgcolor=""#FFFFFF"">送您的购物积分</td>" & vbcrlf
response.write "<td bgcolor=""#FFFFFF""> 小计</td>" & vbcrlf
response.write "</tr>" & vbcrlf
sum2=0
sums2=0
do while not rs.eof
strscore=rs("score")
response.write "<tr BGCOLOR=#FFFFFF>" & vbcrlf
response.write "<td align=""center"" bgcolor=""#FFFFFF"">" & vbcrlf
response.Write "<a href=product.asp?id="&rs("id")&" target=_blank>"&rs("title")&"</a>"
response.write "</td>" & vbcrlf
response.write "<td align=""center"" bgcolor=""#FFFFFF"">" & rs("price1") & "元</td>" & vbcrlf
response.write "<td align=""center"" bgcolor=""#FFFFFF"">" & findx_pricea(rs("price2_gradelist")) & "元</td>" & vbcrlf
response.write "<td align=""center"" bgcolor=""#FFFFFF"">" & rs("productnum") & "</td>" & vbcrlf
response.write "<td align=""center"" bgcolor=""#FFFFFF"">" & strscore*rs("productnum") & "分</td>" & vbcrlf
sums2=sums2 + strscore*rs("productnum")
response.write "<td align=""center"" bgcolor=""#FFFFFF"">" & cdbl(findx_pricea(rs("price2_gradelist")))*rs("productnum") & "元</td></tr>" & vbcrlf
set rsvip=server.CreateObject("adodb.recordset")
rsvip.open "select * from [nd_user] where username='"&username&"' ",conn,1,1
sum2=cdbl(findx_pricea(rs("price2_gradelist")))*rs("productnum")+sum2
rs.movenext
loop
rs.movefirst
response.write "<tr align=""center"">" & vbcrlf
response.write "<td colspan=""7"" bgcolor=""#FFFFFF"">您选择的送货方式：" & vbcrlf
set rs3=server.CreateObject("adodb.recordset")
rs3.open "select * from delivery where deliveryid="&int(rs("deliverymethord")),conn,1,1
if rs3.eof and rs3.bof then
response.write "送货方式已经被删除"
response.write " 附加费用：0元 共计："
response.write sum2&"元，赠送积分"&sums2&"分"
sum=sum1
else
response.Write trim(rs3("subject"))
response.write " 附加费用：<font color=red>"&rs3("fee")&"</font> 元 "
response.write "共计：<font color=red>"&sum2+rs3("fee")&"</font> 元，赠送积分：<font color=red>"&sums2&"</font> 分"
sum=sum2+rs3("fee")
end if
rs3.close
set rs3=nothing
'ND_prod ND_SHOP_orders
set rsdeposit=server.CreateObject("adodb.recordset")
rsdeposit.open "select deposit,score from [nd_user] where username='"&username&"' ",conn,1,3
if rsdeposit.eof and rsdeposit.bof then
strtxtdeposit="请您在一周内按您选择的支付方式进行汇款，汇款时请注明您的订单号！汇款后请及时通知我们"
else
strdeposit = CLng(rsdeposit("deposit"))
if strdeposit>sum then
rsdeposit("deposit")=strdeposit-sum
rsdeposit("score")=rsdeposit("score")+sums2
rsdeposit.update
set rscccc=server.CreateObject("adodb.recordset")
rscccc.open "select * from [ND_SHOP_caiwu]",conn,1,3
rscccc.addnew
rscccc("money_a")=sum
rscccc("m_type")="2"
rscccc("time_a")=now()
rscccc("username_a")=username
rscccc("dingdan")=goods
rscccc("is_ok")="1"
rscccc.update
strtxtdeposit="已从你的预存款中扣除"&""&sum&""&"元，给你加了"&""&sums2&""&"分"
conn.execute("update ND_SHOP_orders set state=2 where goods='"&strgoods&"'")
else
strtxtdeposit="请您在一周内按您选择的支付方式进行汇款，汇款时请注明您的订单号！汇款后请及时通知我们"
end if
end if
rsdeposit.close
set rsdeposit=nothing
response.write "</td></tr>" & vbcrlf
response.write "</table>" & vbcrlf
response.write "<br /></td></tr>" & vbcrlf
response.write "<tr> <td width=""16%"" height=""18"" align=""right"" bgcolor=""ffffff"" >订货人姓名：</td>" & vbcrlf
response.write "<td width=""84%"" bgcolor=""ffffff"" ><font color=#FF6600>" & trim(rs("realname")) & "</font></td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr> <td height=""18"" align=""right"" bgcolor=""ffffff"" >收货人姓名：</td>" & vbcrlf
response.write "<td height=""18"" bgcolor=""ffffff"" ><font color=#FF6600>" & vbcrlf
response.Write trim(request.form("recepit"))
if request.form("sex")=1 then
response.Write " (先生)"
else
response.Write " (女士)"
end if
response.write "</font></td>" & vbcrlf
response.write "</tr> <tr> <td height=""18"" align=""right"" bgcolor=""ffffff"" >收货详细地址：</td>" & vbcrlf
response.write "<td height=""18"" bgcolor=""ffffff"" ><font color=#FF6600>" & trim(request.form("address")) & "</font></td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr> <td height=""18"" align=""right"" bgcolor=""ffffff"" >邮编：</td>" & vbcrlf
response.write "<td height=""18"" bgcolor=""ffffff"" ><font color=#FF6600>" & trim(request.form("postcode")) & "</font> 电话：<font color=#FF6600>" & trim(request.form("usertel")) & "</font> 电子邮件：<font color=#FF6600>" & trim(request.form("useremail")) & "</font></td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr> <td height=""18"" align=""right"" bgcolor=""ffffff"" >送货方式：</td>" & vbcrlf
response.write "<td height=""18"" bgcolor=""ffffff"" ><font color=#FF6600>" & vbcrlf
set rs3=server.CreateObject("adodb.recordset")
rs3.open "select * from delivery where deliveryid="&request.form("deliverymethord"),conn,1,1
if rs3.eof and rs3.bof then
response.write "方式已经被删除"
else
response.Write trim(rs3("subject"))
end if
rs3.close
set rs3=nothing
response.write "</font> 支付方式：<font color=#FF6600>" & vbcrlf
set rs3=server.CreateObject("adodb.recordset")
rs3.open "select * from delivery where deliveryid="&request.form("paymethord"),conn,1,1
if rs3.eof and rs3.bof then
response.write "方式已经被删除"
else
response.Write trim(rs3("subject"))
end if
rs3.close
set rs=nothing
response.write "</font></td>" & vbcrlf
response.write "</tr>" & vbcrlf
if trim(request.form("comments"))<>"" then
response.write "<tr> <td height=""19"" colspan=""2"" bgcolor=""ffffff"" >您的留言：" & trim(request.form("comments")) & "</td>" & vbcrlf
response.write "</tr>" & vbcrlf
end if
response.write "<tr>" & vbcrlf
response.write "<td height=""18"" colspan=""2"" bgcolor=""ffffff"" style='PADDING-LEFT: 50px'>" & strtxtdeposit & "</td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr> <td height=""26"" colspan=""2"" bgcolor=""ffffff"" style='PADDING-LEFT: 50px'> <p><font color=#666666>" & vbcrlf
response.write " </font></p></td></tr> <tr> <td height=""8"" colspan=""2"" align=""center"" bgcolor=""ffffff"" >"
response.write "</td></tr>" & vbcrlf
response.write "<tr>" & vbcrlf
response.write "<td height=""9"" colspan=""2"" bgcolor=""ffffff"" style='PADDING-LEFT: 50px'><div align=""right""><a href=""#"" onclick=""javascript:window.close()""> 关闭窗口</a><font color=""#999999""> <font color=""#000000"">订单完成" & vbcrlf
response.write "创建时间：" & shijian & "</font> </font></div></td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "</table>" & vbcrlf
response.write "</td></tr> </table>" & vbcrlf
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from nd_prod where id in ("&id&")" ,conn,1,3
do while not rs.eof
rs("solded")=rs("solded")+1
rs("shenyu_num")=rs("shenyu_num")-1
rs.update
rs.movenext
loop
rs.close
set rs=nothing
end select%><%
end sub
'---------------------------cart_p--------------------------
sub addtocart()
set rs=server.CreateObject("adodb.recordset")
rs.open "select ND_SHOP_orders.actionid,ND_SHOP_orders.id,ND_prod.title,ND_prod.price1,ND_prod.price2_gradelist from ND_prod inner join ND_SHOP_orders on ND_prod.id=ND_SHOP_orders.id where ND_SHOP_orders.username='"&uuuaa&"' and ND_SHOP_orders.state=6",conn,1,1
response.write "<table width=96% border=0 align=center cellpadding=0 cellspacing=1 bgcolor=#e1e1e1>" & vbcrlf
if action="addtocart" then
response.write "<form action='$page$cp_vip_user_page$?action=cart_p' method='post'>"
else
response.write "<form name='form1' method='post' action=$page$cp_vip_user_page$?action=cart_p>"
end if
response.write "<tr bgcolor=#ffffff height=20 align=center>" & vbcrlf
response.write "<td width=9% >"
response.write "选 择</td>" & vbcrlf
response.write "<td width=35% >"
response.write "商品名称</td>" & vbcrlf
response.write "<td width=21% >"
response.write "市场价</td>" & vbcrlf
response.write "<td width=24% >"
response.write "对您的价格</td>" & vbcrlf
response.write "<td width=11% >"
response.write "删 除</td>" & vbcrlf
response.write "</tr>" & vbcrlf
do while not rs.eof
response.write "<tr bgcolor=#ffffff align=center>" & vbcrlf
response.write "<td><input name=id type=checkbox checked value=" & rs("id") & "></td>" & vbcrlf
response.write "<td STYLE='PADDING-LEFT: 5px' align=left><a href=""$page$cp_view_page$?cpid=" & rs("id") & """ target=_blank>" & rs("title") & "</a></td>" & vbcrlf
response.write "<td>" & rs("price1") & "元</td>" & vbcrlf
response.write "<td><font color=#FF0000>" & findx_pricea(rs("price2_gradelist")) & "元</font></td>" & vbcrlf
response.write "<td>" & vbcrlf
if action<>"addtocart" then
response.Write "<a href=$page$cp_vip_user_page$?action=addto_p_del&actionid="&rs("actionid")&">"
else
response.Write "<a href=$page$cp_vip_user_page$?action=addto_p_del&actionid="&rs("actionid")&"&ll=22>"
end if
response.Write "删除</a></td></tr>"
rs.movenext
loop
rs.close
set rs=nothing
response.write "<tr><td height=36 colspan=6 bgcolor=#FFFFFF><div align=center><input type=submit name=Submit value=去下订单 > "
if action<>"addtocart" then
response.write "<input type=button name=Submit2 value=继续采购 onclick=javascript:window.close()>"
end if
response.write "</div></td></tr></form></table>" & vbcrlf
end sub
'----------------------------saveprofile_p------------------
sub saveprofile_p
action=request.QueryString("action2")
username=uuuaa
select case action
'//收货人信息
case "receiveaddr"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [nd_user] where username='"&username&"' ",conn,1,3
rs("recepit")=trim(request.form("recepit"))
rs("addr_for_buy")=trim(request.form("address"))
rs("youbian")=cstr(request.form("postcode"))
rs("tel")=trim(request.form("usertel"))
rs.Update
rs.Close
set rs=nothing
response.Write "<script language=javascript>alert('您的收货信息保存成功！');history.go(-1);</script>"
response.End
'//用户资料
case "customerinfo"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [nd_user] where username='"&username&"'",conn,1,3
rs("email")=trim(request.form("useremail"))
rs("realname")=trim(request.form("realname"))
rs.update
rs.close
set rs=nothing
response.Write "<script language=javascript>alert('您的个人资料修改成功！');history.go(-1);</script>"
case "changepass"
set rs=server.CreateObject("adodb.recordset")
rs.open "select pwd from [nd_user] where username='"&username&"'",conn,1,3
if request.form("password1")<>request.form("password2") then
response.Write "<script language=javascript>alert('对不起，密码两次输入不一致！');history.go(-1);</script>"
response.End
else
if md5(trim(request.form("password")))<>trim(rs("pwd")) then
response.Write "<script language=javascript>alert('对不起，您输入的原密码错误！');history.go(-1);</script>"
response.End
else
rs("pwd")=md5(trim(request.form("password1")))
rs.update
rs.close
set rs=nothing
response.Write "<script language=javascript>alert('密码更改成功！');history.go(-1);</script>"
response.End
end if
end if
'//取回密码
case "repass"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [nd_user] where username='"&trim(request.form("username2"))&"'",conn,1,3
rs("pwd")=md5(trim(request.form("userpassword1")))
rs.update
rs.close
set rs=nothing
response.Write "<script language=javascript>alert('您的密码重置成功，请登录！');self.location='index.asp';</script>"
end select
end sub
'----------------------------saveprofile_p------------------
sub receiveaddr()
username=uuuaa
'ND_prod ND_SHOP_orders
dim rs2
if username="" then
response.Write "<center>请先登录</center>"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [nd_user] where username='"& username&"' ",conn,1,1
response.write "<br />" & vbcrlf
response.write "<table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#e1e1e1>" & vbcrlf
response.write "<form name=receiveaddr method=post action=$page$cp_vip_user_page$?action=saveprofile_p&action2=receiveaddr>" & vbcrlf
response.write "<tr bgcolor=#ffffff><td height=15 colspan=2 align=center>请您填写正确的收货人信息，我们会为您保密。</td></tr>" & vbcrlf
response.write "<tr bgcolor=#FFFFFF height=28>" & vbcrlf
response.write "<td width=18% STYLE='PADDING-LEFT: 10px'>收货人姓名：</td>" & vbcrlf
response.write "<td width=82% ><input name=recepit type=text id=recepit size=12 value=" & trim(rs("recepit")) & "> " & vbcrlf
response.write "</td></tr>" & vbcrlf
response.write "<tr height=28 bgcolor=#FFFFFF>" & vbcrlf
response.write "<td height=16 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 10px'>收货人详细地址：</td>" & vbcrlf
response.write "<td><input name=address type=text id=address size=40 value=" & trim(rs("addr_for_buy")) & "></td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr height=28 bgcolor=#FFFFFF>" & vbcrlf
response.write "<td STYLE='PADDING-LEFT: 10px'>邮 编：</td>" & vbcrlf
response.write "<td><input name=postcode type=text id=postcode value=" & trim(rs("youbian")) & "></td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr height=28 bgcolor=#FFFFFF>" & vbcrlf
response.write "<td STYLE='PADDING-LEFT: 10px'>电 话：</td>" & vbcrlf
response.write "<td><input name=usertel type=text id=usertel value=" & trim(rs("tel")) & "></td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr height=28 bgcolor=#FFFFFF>" & vbcrlf
response.write "<td STYLE='PADDING-LEFT: 10px'>腾讯 QQ：</td>" & vbcrlf
response.write "<td><input name=userqq type=text id=userqq value=" & trim(rs("qq")) & "></td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr bgcolor=#FFFFFF align=center>" & vbcrlf
response.write "<td height=32 colspan=2 ><input type=submit name=Submit value=提交保存 onclick='return checkreceiveaddr();'></td></tr>" & vbcrlf
response.write "</form></table>" & vbcrlf
rs.close
set rs=nothing
end sub
sub deposit()
username=uuuaa
'ND_prod ND_SHOP_orders
dim strscore,strvipscore,strdeposit
if username="" then
response.Write "<center>请先登录</center>"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select score,deposit from [user] where username='"&username&"' ",conn,1,1
strscore = rs("score")
strdeposit = rs("deposit")
rs.close
rs.open "select webimg14 from config",conn,1,1
strvipscore = rs("webimg14")
rs.close
response.write "<br />" & vbcrlf
response.write "<table width=96% border=0 align=center cellpadding=1 cellspacing=1>" & vbcrlf
response.write "<tr bgcolor=#FFFFFF>" & vbcrlf
response.write "<td><br>" & vbcrlf
response.write "<font color=#FF0000>★</font> 您目前的积分为： <font color=#FF0000>" & vbcrlf
response.write strscore
response.write "</font> 分。 </td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr bgcolor=#FFFFFF>" & vbcrlf
response.write "<td width=""483""><form name=""uptovip"" method=""post"" action=""vip.asp?action=chgscore"">" & vbcrlf
response.write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbcrlf
response.write "<tr>" & vbcrlf
response.write "<td>" & vbcrlf
response.write "<br>" & vbcrlf
response.write "<font color=#FF0000>★</font> 你目前的预存款有： <font color=#FF0000>" & vbcrlf
response.write strdeposit
response.write "</font> 元。</td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "</table>" & vbcrlf
response.write "</form></td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr bgcolor=#FFFFFF>" & vbcrlf
response.write "<td><form name=""chgscore"" method=""post"" action=""vip.asp?action=uptovip"">" & vbcrlf
response.write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbcrlf
response.write "<tr>" & vbcrlf
response.write "<td> </td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "</table>" & vbcrlf
response.write "</form></td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "</table>" & vbcrlf
set rs = nothing
end sub
sub profile()
username=uuuaa
'ND_prod ND_SHOP_orders
if username="" then
response.Write "<center>请先登录</center>"
response.End
end if
end sub
sub customerinfo()
username=uuuaa
'ND_prod ND_SHOP_orders
if username="" then
response.Write "<center>请先登录</center>"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select email,realname from [nd_user] where [username]='"&username&"'",conn,1,1
response.write "<br />" & vbcrlf
response.write "<table width=96% border=0 align=center cellpadding=1 cellspacing=1>" & vbcrlf
response.write "<form name=userinfo method=post action=$page$cp_vip_user_page$?action=saveprofile_p&action2=customerinfo>" & vbcrlf
response.write "<tr><td align=center>尊敬的用户，我们向您承诺：你的信息将被严格保密。</td></tr>" & vbcrlf
response.write "<tr><td height=28 align=""center"" bgcolor=#FFFFFF STYLE='PADDING-LEFT: 30px'>用 户 名： <font color=#FF6600>" & vbcrlf
response.write username & "</font></td></tr>" & vbcrlf
response.write "<tr><td height=28 align=""center"" bgcolor=#FFFFFF STYLE='PADDING-LEFT: 30px'>E-Mail ：" & vbcrlf
response.write "<input name=useremail type=text id=useremail2 value=" & trim(rs("email")) & "></td></tr>" & vbcrlf
response.write "<tr><td height=28 align=""center"" bgcolor=#FFFFFF STYLE='PADDING-LEFT: 30px'>真实姓名：" & vbcrlf
response.write "<input name=realname type=text id=realname value=" & trim(rs("realname")) & "></td></tr>" & vbcrlf
response.write "<tr><td height=32 align=""center"" bgcolor=#FFFFFF STYLE='PADDING-LEFT: 30px'><input type=submit name=Submit2 value=提交保存 onclick='return checkuserinfo();'></td></tr>" & vbcrlf
response.write "</form></table>" & vbcrlf
rs.close
set rs=nothing
end sub
sub changepass()
username=uuuaa
'ND_prod ND_SHOP_orders
if username="" then
response.Write "<center>请先登录</center>"
response.End
end if
response.write "<br />" & vbcrlf
response.write "<table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>" & vbcrlf
response.write "<form name=userpass method=post action=$page$cp_vip_user_page$?action=saveprofile_p&action2=changepass>" & vbcrlf
response.write "<tr bgcolor=#FFFFFF>" & vbcrlf
response.write "<td width=50% align=""right"">用 户 名：</td>" & vbcrlf
response.write "<td width=50% ><font color=#FF0000>" & username & "</font></td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr bgcolor=#FFFFFF>" & vbcrlf
response.write "<td align=""right"">原 密 码：</td>" & vbcrlf
response.write "<td><input name=password type=password id=password></td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr bgcolor=#FFFFFF>" & vbcrlf
response.write "<td align=""right"">新 密 码：</td>" & vbcrlf
response.write "<td><input name=password1 type=password id=password1></td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr bgcolor=#FFFFFF>" & vbcrlf
response.write "<td align=""right"">确认密码：</td>" & vbcrlf
response.write "<td><input name=password2 type=password id=password2></td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr>" & vbcrlf
response.write "<td colspan=2 bgcolor=#FFFFFF align=""center""><input type=submit name=Submit value='修 改' onclick='return checkrepass();'></td></tr>" & vbcrlf
response.write "</form></table>" & vbcrlf
end sub
sub repass()
dim shop
shop=request.QueryString("shop")
select case shop
'//输入用户名
case ""
response.Write "<br><table width=96% border=0 align=center cellpadding=01 cellspacing=1>"
response.Write "<form name=shop0 method=post action=$page$cp_vip_user_page$?action=repass&shop=1>"
response.Write "<tr><td height=28 bgcolor=#ffffff><div align=center>请输入您的用户名： <input name=username type=text id=username size=16></div></td></tr>"
response.Write "<tr><td height=32 bgcolor=#ffffff><div align=center><input type=submit name=Submit value=确 定 onclick='return check0();'></div></td></tr>"
response.Write "</form></table>"
'//输入问题答案
case "1"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [nd_user] where username='"&trim(request.form("username"))&"' ",conn,1,1
if rs.eof and rs.bof then
response.write "<center><br>查无此用户，请返回！</center>"
else
response.Write "<br><table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>"
response.Write "<form name=shop1 method=post action=$page$cp_vip_user_page$?action=repass&shop=2>"
response.Write "<tr><td width=21% bgcolor=#ffffff STYLE='PADDING-LEFT: 20px'>您的密码提问：</td><td width=79% height=28 bgcolor=#ffffff STYLE='PADDING-LEFT: 20px'><font color=red>"&trim(rs("pwd_wenti"))&"</font><input type=hidden name=username1 value="&trim(request.form("username"))&" ID=Hidden1></td></tr>"
response.Write "<tr><td bgcolor=#ffffff STYLE='PADDING-LEFT: 20px'>您的密码答案：</td><td height=28 bgcolor=#ffffff STYLE='PADDING-LEFT: 20px'><input name=answer type=text id=answer></td></tr>"
response.Write "<tr bgcolor=#ffffff><td height=32 colspan=2 STYLE='PADDING-LEFT: 50px'><input type=submit name=Submit2 value=确 定 onclick='return check1();'></td></tr>"
response.Write "</form></table>"
end if
rs.close
set rs=nothing
'//输入新密码
case "2"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [nd_user] where username='"&trim(request.form("username1"))&"' ",conn,1,1
'//判断答案是否正确
if trim(rs("pwd_daan_md5"))<>md5(trim(request.form("answer"))) or trim(request.form("answer"))="" then
response.write "<script language=javascript>alert('对不起，您输入的问题答案不正确');history.go(-1);</script>"
response.end
else
response.Write "<br><table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>"
response.Write "<form name=shop2 method=post action=$page$cp_vip_user_page$?action=saveprofile_p&action2=repass>"
response.Write "<tr><td width=20% bgcolor=#EFF5FE STYLE='PADDING-LEFT: 20px'>请输入新密码：</td><td width=80% height=28 bgcolor=#EFF5FE STYLE='PADDING-LEFT: 20px'><input name=userpassword1 type=password id=userpassword1><input type=hidden name=username2 value="&trim(request.form("username1"))&"></td></tr>"
response.Write "<tr><td bgcolor=#EFF5FE STYLE='PADDING-LEFT: 20px'>输入确认密码：</td><td height=28 bgcolor=#EFF5FE STYLE='PADDING-LEFT: 20px'><input name=userpassword2 type=password id=userpassword2></td></tr>"
response.Write "<tr><td height=32 colspan=2 bgcolor=#EFF5FE STYLE='PADDING-LEFT: 50px'><input type=submit name=Submit3 value=确 定 onclick='return check2();'></td></tr>"
response.Write "</form></table>"
end if
rs.close
set rs=nothing
end select
end sub
sub statinfo()
if request.cookies("alicn")("username")="" then
response.Write "<center>请先登录</center>"
response.End
end if
end sub
sub goodss()
username=uuuaa
'ND_prod ND_SHOP_orders
if username="" then
response.Write "<center><center>请先登录</center></center>"
response.End
end if
response.write "<br />" & vbcrlf
response.write "<table border=""0"" cellpadding=""0"" cellspacing=""0"" align=""center"" width=""100%"">" & vbcrlf
response.write "<tr><td>" & vbcrlf
response.write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"">" & vbcrlf
response.write "<tr><td width=""55%"" align=""right"" valign=""top""><B><font color=""ff6600"">我 的 订 单</font><br />" & vbcrlf
response.write "</B></td>" & vbcrlf
response.write "<td width=""49%"" align=""right"">" & vbcrlf
response.write "<select name=""state"" onChange=""var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}"" >" & vbcrlf
response.write "<option value=""$page$cp_vip_user_page$?action=goods&state=0"" selected>--请选择查询状态--</option>" & vbcrlf
response.write "<option value=""$page$cp_vip_user_page$?action=goods&state=0"" >全部订单状态</option>" & vbcrlf
response.write "<option value=""$page$cp_vip_user_page$?action=goods&state=1"" >未作任何处理</option>" & vbcrlf
response.write "<option value=""$page$cp_vip_user_page$?action=goods&state=2"" >用户已划出款</option>" & vbcrlf
response.write "<option value=""$page$cp_vip_user_page$?action=goods&state=3"" >服务商已收到款</option>" & vbcrlf
response.write "<option value=""$page$cp_vip_user_page$?action=goods&state=4"" >服务商已发货</option>" & vbcrlf
response.write "<option value=""$page$cp_vip_user_page$?action=goods&state=5"" >用户已经收到货</option>" & vbcrlf
response.write "</select></td></tr> </table>" & vbcrlf
response.write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"" bgcolor=""e1e1e1"" >" & vbcrlf
response.write "<tr align=""center"" bgcolor=""ffffff"" >" & vbcrlf
response.write "<td>订单号</td>" & vbcrlf
response.write "<td>合计金额</td>" & vbcrlf
response.write "<td>积分</td>" & vbcrlf
response.write "<td>订货人</td>" & vbcrlf
response.write "<td>付款方式</td>" & vbcrlf
response.write "<td>收货方式</td>" & vbcrlf
response.write "<td>订单日期</td>" & vbcrlf
response.write "<td>订单状态</td>" & vbcrlf
response.write "</tr>" & vbcrlf
set rs=server.CreateObject("adodb.recordset")
dim state
state=request.QueryString("state")
if state=0 or state="" then
select case state
case "0"
rs.open "select distinct(goods),realname,actiondate,deliverymethord,paymethord,state from ND_SHOP_orders where username='"&username&"' and state<6 order by actiondate desc",conn,1,1
case ""
rs.open "select distinct(goods),realname,actiondate,deliverymethord,paymethord,state from ND_SHOP_orders where username='"&username&"' and state<6 order by actiondate desc",conn,1,1
end select
else
rs.open "select distinct(goods),realname,actiondate,deliverymethord,paymethord,state from ND_SHOP_orders where username='"&username&"' and state="&state&" order by actiondate",conn,1,1
end if
do while not rs.eof
response.write "<tr bgcolor=#ffffff align=""center"">" & vbcrlf
dim shop,rs2
set shop=server.CreateObject("adodb.recordset")
shop.open "select sum(paid) as paid,sum(score) as score from ND_SHOP_orders where goods='"&trim(rs("goods"))&"' ",conn,1,1
response.write "<td height=""24"" ><a href=""$page$cp_vip_user_page$?action=chkorder_p&dan=" & trim(rs("goods")) & "&score=" & trim(shop("score")) & """>" & trim(rs("goods")) & "</a></td>" & vbcrlf
response.write "<td>" & vbcrlf
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from delivery where deliveryid="&rs("deliverymethord"),conn,1,1
response.write "<font color=#FF6600>"&shop("paid")+rs2("fee")&"元</font>"
rs2.close
set rs2=nothing
response.write "</td>" & vbcrlf
response.write "<td>" & vbcrlf
%><% = shop("score") %><%
shop.close
set shop=nothing
response.write "</td>" & vbcrlf
response.write "<td>" & trim(rs("realname")) & "</td>" & vbcrlf
response.write "<td>" & vbcrlf
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from delivery where deliveryid="&rs("paymethord"),conn,1,1
response.Write trim(rs2("subject"))
rs2.close
set rs2=nothing
response.write "</td>" & vbcrlf
response.write "<td align=""center"">" & vbcrlf
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from delivery where deliveryid="&rs("deliverymethord"),conn,1,1
response.Write trim(rs2("subject"))
rs2.close
set rs2=nothing
response.write "</td>" & vbcrlf
response.write "<td>" & trim(rs("actiondate")) & "</td>" & vbcrlf
response.write "<td>" & vbcrlf
select case cstr(rs("state"))
case "1"
response.write "未付款 <a href='$page$cp_vip_user_page$?action=zhifuit&dan="&rs("goods")&"'><strong><font color=#0000ff>[开始付款]</font></strong></a>"
case "2"
response.write "已付款，等待处理"
case "3"
response.write "服务商收到款"
case "4"
response.write "服务商已发货"
case "5"
response.write "用户已收到货"
end select
response.write "</td>" & vbcrlf
response.write "</tr>" & vbcrlf
rs.movenext
loop
rs.close
set rs=nothing
response.write "</table>" & vbcrlf
response.write "</table>" & vbcrlf
end sub
sub loginnum()
dim url
response.write "<table width=30% border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF>" & vbcrlf
response.write "<form name=loginfo method=post action=$page$vip_login_page$?do=1>" & vbcrlf
response.write "<tr bgcolor=#ffffff>" & vbcrlf
response.write "<td width=38% height=19 align=right nowrap style='padding-left:1px'>用户" & vbcrlf
response.write "</td>" & vbcrlf
response.write "<td width=62% style='padding-left:1px'><input name=nam type=text id=nam size=9>" & vbcrlf
response.write "</td>" & vbcrlf
response.write "<td width=62% nowrap style='padding-left:1px' align=""center"">密" & vbcrlf
response.write "码</td>" & vbcrlf
response.write "<td width=62% style='padding-left:1px'><input name=pwd type=password id=pwd size=10></td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr bgcolor=#ffffff>" & vbcrlf
response.write "<td height=18 style='padding-left:1px' align=right> </td>" & vbcrlf
response.write "<td style='padding-left:1px'></td>" & vbcrlf
response.write "<td style='padding-left:1px'></td>" & vbcrlf
response.write "<td style='padding-left:1px'> <input type=submit name=Submit4 value=""登录"" onClick=""return checkuu();"">" & vbcrlf
response.write " <a href=""reg.asp"">注册</a> </td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "</form>" & vbcrlf
response.write "</table>" & vbcrlf
end sub
%><%
'---------------------------------------chkorder_p
sub chkorder_p
username=uuuaa
'ND_prod ND_SHOP_orders
'=findx_pricea(rs("price2_gradelist"))*Quatity+sum1
goods=request.QueryString("dan")
set rs=server.CreateObject("adodb.recordset")
rs.open "select ND_prod.id,ND_prod.title,ND_prod.price1,ND_prod.score,ND_prod.price2_gradelist,ND_SHOP_orders.actiondate,ND_SHOP_orders.sex,ND_SHOP_orders.realname,ND_SHOP_orders.recepit,ND_SHOP_orders.goods,ND_SHOP_orders.postcode,ND_SHOP_orders.comments,ND_SHOP_orders.paymethord,ND_SHOP_orders.deliverymethord,ND_SHOP_orders.state,ND_SHOP_orders.paid,ND_SHOP_orders.useremail,ND_SHOP_orders.usertel,ND_SHOP_orders.address,ND_SHOP_orders.productnum from nd_prod inner join ND_SHOP_orders on nd_prod.id=ND_SHOP_orders.id where ND_SHOP_orders.username='"&username&"' and goods='"&goods&"' ",conn,1,1
if rs.eof and rs.bof then
response.write "<center>此订单中有商品已被管理员删除，无法处理，请通知管理员或者重下订单！</center>"
response.End
end if
response.write "<table width=""98%"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"" bgcolor=""e1e1e1"">" & vbcrlf
response.write "<tr >" & vbcrlf
response.write "<td height=""20"" colspan=""2"" align=""center"" bgcolor=""ffffff"">订单号为：<font color=""ff6600"">" & goods & "</font> ，详细资料如下：</td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr >" & vbcrlf
response.write "<td colspan=""2"" valign=""top"" bgcolor=""ffffff""><table width=""100%"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"" bgcolor=""#f1f1f1"" >" & vbcrlf
response.write "<tr align=""center"">" & vbcrlf
response.write "<td bgcolor=""ffffff"">商品名称</td>" & vbcrlf
response.write "<td width=""10%"" bgcolor=""ffffff"">订购数量</td>" & vbcrlf
response.write "<td width=""10%"" bgcolor=""ffffff"">市场价</td>" & vbcrlf
response.write "<td width=""10%"" bgcolor=""ffffff"">对您的价格</td>" & vbcrlf
response.write "<td width=""8%"" bgcolor=""ffffff"">积分</td>" & vbcrlf
response.write "<td width=""14%"" bgcolor=""ffffff"">金额小计</td>" & vbcrlf
response.write "</tr>" & vbcrlf
dim sum1,sums1
do while not rs.eof
response.write "<tr bgcolor=#FFFFFF>" & vbcrlf
response.write "<td bgcolor=""ffffff"" style='PADDING-LEFT: 5px'><a href=""$page$cp_view_page$?cpid=" & rs("id") & """ target=_blank>" & trim(rs("title")) & "</a></td>" & vbcrlf
response.write "<td align=""center"" bgcolor=""ffffff"">" & rs("productnum") & "</td>" & vbcrlf
response.write "<td align=""center"" bgcolor=""ffffff"">" & rs("price1") & "元</td>" & vbcrlf
response.write "<td align=""center"" bgcolor=""ffffff"">" & findx_pricea(rs("price2_gradelist")) & "元</td>" & vbcrlf
response.write "<td align=""center"" bgcolor=""ffffff"">" & rs("score")*rs("productnum") & "分</td>" & vbcrlf
response.write "<td align=""center"" bgcolor=""ffffff"">" & rs("paid") & "元</td>" & vbcrlf
response.write "</tr>" & vbcrlf
sum1=rs("paid")+sum1
sums1=sums1+rs("score")*rs("productnum")
rs.movenext
loop
rs.movefirst
response.write "<tr bgcolor= #FFFFFF>" & vbcrlf
response.write "<td height=""19"" colspan=""7"" align=""center"" bgcolor=""ffffff"">您的送货方式是：" & vbcrlf
dim rs2
set rs2=server.CreateObject("adodb.recordset")
rs2.Open "select * from delivery where deliveryid="&rs("deliverymethord"),conn,1,1
if rs2.EOF and rs2.BOF then
response.Write "此方式已经被删除"
response.write " 附加费用：0元"
response.write " 金额总计："&sum1&" 元，获得积分"&sums1&"分"
else
response.Write trim(rs2("subject"))
response.write " 附加费用："&rs2("fee")&"元"
response.write " 金额总计：<font color=red>"&sum1+rs2("fee")&"</font> 元，获得积分 <font color=red>"&sums1&"</font> 分"
end if
rs2.Close
set rs2=nothing
response.write "</td></tr>" & vbcrlf
response.write "</table></td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr >" & vbcrlf
response.write "<td width=""13%"" valign=""top"" bgcolor=""ffffff"">订单状态：</td>" & vbcrlf
response.write "<td bgcolor=""ffffff""><table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""0"" >" & vbcrlf
response.write "<form name=""form1"" method=""post"" action=""$page$cp_vip_user_page$?action=save_p&dan=" & goods & "&score=" & sums1 & "&action2=save"">" & vbcrlf
response.write "<tr>" & vbcrlf
response.write "<td bgcolor=""#FFFFFF"">" & vbcrlf
grade(rs("state"))
response.write " <input type=""submit"" name=""Submit"" value=""修改订单状态""> </td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "</form>" & vbcrlf
response.write "</table></td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr >" & vbcrlf
response.write "<td bgcolor=""ffffff"" style='PADDING-LEFT: 6px'>订货人姓名：</td>" & vbcrlf
response.write "<td bgcolor=""ffffff"">" & trim(rs("realname")) & "</td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr >" & vbcrlf
response.write "<td bgcolor=""ffffff"" style='PADDING-LEFT: 6px'>收货人姓名：</td>" & vbcrlf
response.write "<td bgcolor=""ffffff"">" & trim(rs("recepit")) & "</td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr >" & vbcrlf
response.write "<td bgcolor=""ffffff"" style='PADDING-LEFT: 6px'>收货地址：</td>" & vbcrlf
response.write "<td bgcolor=""ffffff"">" & trim(rs("address")) & "</td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr >" & vbcrlf
response.write "<td bgcolor=""ffffff"" style='PADDING-LEFT: 6px'>邮 编：</td>" & vbcrlf
response.write "<td bgcolor=""ffffff"">" & trim(rs("postcode")) & "</td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr >" & vbcrlf
response.write "<td bgcolor=""ffffff"" style='PADDING-LEFT: 6px'>联系电话：</td>" & vbcrlf
response.write "<td bgcolor=""ffffff"">" & trim(rs("usertel")) & "</td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr >" & vbcrlf
response.write "<td bgcolor=""ffffff"" style='PADDING-LEFT: 6px'>电子邮件：</td>" & vbcrlf
response.write "<td bgcolor=""ffffff"">" & trim(rs("useremail")) & "</td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr >" & vbcrlf
response.write "<td bgcolor=""ffffff"" style='PADDING-LEFT: 6px'>送货方式：</td>" & vbcrlf
response.write "<td bgcolor=""ffffff"">" & vbcrlf
set rs2=server.CreateObject("adodb.recordset")
rs2.Open "select * from delivery where deliveryid="&rs("deliverymethord"),conn,1,1
response.Write trim(rs2("subject"))
rs2.Close
set rs2=nothing
response.write "</td></tr>" & vbcrlf
response.write "<tr >" & vbcrlf
response.write "<td bgcolor=""ffffff"" style='PADDING-LEFT: 6px'>支付方式：</td>" & vbcrlf
response.write "<td bgcolor=""ffffff"">" & vbcrlf
set rs2=server.CreateObject("adodb.recordset")
rs2.Open "select * from delivery where deliveryid="&rs("paymethord"),conn,1,1
response.Write trim(rs2("subject"))
rs2.close
set rs2=nothing
response.write "</td></tr>" & vbcrlf
response.write "<tr >" & vbcrlf
response.write "<td bgcolor=""ffffff"" style='PADDING-LEFT: 6px'>您的留言：</td>" & vbcrlf
response.write "<td bgcolor=""ffffff"">" & trim(rs("comments")) & "</td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr >" & vbcrlf
response.write "<td bgcolor=""ffffff"" style='PADDING-LEFT: 6px'>下单日期：</td>" & vbcrlf
response.write "<td bgcolor=""ffffff"">" & rs("actiondate") & "</td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "<tr >" & vbcrlf
response.write "<td colspan=""2"" align=""center"" bgcolor=""ffffff"">" & vbcrlf
if rs("state")=2 then
response.write "<a href=""$page$cp_vip_user_page$?action=save_p&action2=del&dan=" & goods & """>删除订单</a>" & vbcrlf
end if
response.write " </td>" & vbcrlf
response.write "</tr>" & vbcrlf
response.write "</table>" & vbcrlf
end sub
'---------------------------------------chkorder_p
sub grade(aa)
select case aa
case "1"
response.write "<input name=""checkbox"" type=""checkbox"" DISABLED id=""checkbox"" value=""checkbox"" checked>未作任何处理<span style='font-family:Wingdings;'>à</span>" & vbcrlf
response.write "<input type=""checkbox"" name=""checkbox2"" value=""checkbox"" DISABLED>服务商已收到款<span style='font-family:Wingdings;'>à</span>" & vbcrlf
response.write "<input type=""checkbox"" name=""checkbox3"" value=""checkbox"" DISABLED>服务商已发货<span style='font-family:Wingdings;'>à</span>" & vbcrlf
response.write "<input type=""checkbox"" name=""checkbox4"" value=""checkbox"" DISABLED>用户已经收到货" & vbcrlf
case "2"
response.write "<input name=""checkbox"" type=""checkbox"" DISABLED id=""checkbox"" value=""checkbox"" checked>未作任何处理<span style='font-family:Wingdings;'>à</span>" & vbcrlf
response.write "<input type=""checkbox"" name=""checkbox2"" value=""checkbox"" DISABLED>服务商已收到款<span style='font-family:Wingdings;'>à</span>" & vbcrlf
response.write "<input type=""checkbox"" name=""checkbox3"" value=""checkbox"" DISABLED>服务商已发货<span style='font-family:Wingdings;'>à</span>" & vbcrlf
response.write "<input type=""checkbox"" name=""checkbox4"" value=""checkbox"" DISABLED>用户已经收到货" & vbcrlf
case "3"
response.write "<input name=""checkbox"" type=""checkbox"" DISABLED id=""checkbox"" value=""checkbox"" checked>未作任何处理<span style='font-family:Wingdings;'>à</span>" & vbcrlf
response.write "<input type=""checkbox"" name=""checkbox2"" value=""checkbox"" checked DISABLED>服务商已收到款<span style='font-family:Wingdings;'>à</span>" & vbcrlf
response.write "<input type=""checkbox"" name=""checkbox3"" value=""checkbox"" DISABLED>服务商已发货<span style='font-family:Wingdings;'>à</span>" & vbcrlf
response.write "<input type=""checkbox"" name=""checkbox4"" value=""checkbox"" DISABLED>用户已经收到货" & vbcrlf
case "4"
response.write "<input name=""checkbox"" type=""checkbox"" DISABLED id=""checkbox"" value=""checkbox"" checked>未作任何处理<span style='font-family:Wingdings;'>à</span>" & vbcrlf
response.write "<input type=""checkbox"" name=""checkbox2"" value=""checkbox"" checked DISABLED>服务商已收到款<span style='font-family:Wingdings;'>à</span>" & vbcrlf
response.write "<input type=""checkbox"" name=""checkbox3"" value=""checkbox"" checked DISABLED>服务商已发货<span style='font-family:Wingdings;'>à</span>" & vbcrlf
response.write "<input type=""checkbox"" name=""state"" value=""5"" >用户已经收到货" & vbcrlf
case "5"
response.write "<input name=""checkbox"" type=""checkbox"" DISABLED id=""checkbox"" value=""checkbox"" checked>未作任何处理<span style='font-family:Wingdings;'>à</span>" & vbcrlf
response.write "<input type=""checkbox"" name=""checkbox2"" value=""checkbox"" checked DISABLED>服务商已收到款<span style='font-family:Wingdings;'>à</span>" & vbcrlf
response.write "<input type=""checkbox"" name=""checkbox3"" value=""checkbox"" checked DISABLED>服务商已发货<span style='font-family:Wingdings;'>à</span>" & vbcrlf
response.write "<input type=""checkbox"" name=""state"" value=""5"" checked DISABLED>用户已经收到货" & vbcrlf
end select
end sub
sub save_p()
username=uuuaa
'ND_prod ND_SHOP_orders
'=findx_pricea(rs("price2_gradelist"))*Quatity+sum1
'---------------------------------------save_p
action=request.QueryString("action2")
goods=request.QueryString("dan")
strscore=request.QueryString("score")
select case action
case "save"
if request.form("state")<>"" then
set rs=server.CreateObject("adodb.recordset")
rs.Open "select state from ND_SHOP_orders where goods='"&goods&"'",conn,1,3
do while not rs.EOF
rs("state")=request.form("state")
rs.Update
rs.MoveNext
loop
rs.Close
set rs=nothing
end if
response.Write "<script language=javascript>alert('订单状态修改成功！');history.go(-1);</script>"
case "del"
set rs=server.CreateObject("adodb.recordset")
rs.open "select ND_SHOP_orders.id,ND_SHOP_orders.username,ND_SHOP_orders.goods,ND_prod.id,ND_prod.solded,ND_prod.shenyu_num from ND_SHOP_orders inner join ND_prod on ND_SHOP_orders.id=ND_prod.id where ND_SHOP_orders.goods='"&goods&"' " ,conn,1,3
if username<>rs("username") then
response.Write "您无权删除此订单!"
response.End
rs.Close
set rs=nothing
end if
do while not rs.eof
rs("solded")=rs("solded")-1
rs("shenyu_num")=rs("shenyu_num")+1
rs.update
rs.movenext
loop
conn.execute "delete from ND_SHOP_orders where goods='"&goods&"' "
response.Write "<script language=javascript>alert('订单删除成功！');self.location='$page$cp_vip_user_page$?action=goods';</script>"
rs.close
set rs=nothing
end select
end sub
'---------------------------------------save_p
sub zhifuit()
username=uuuaa
set rsm=server.CreateObject("adodb.recordset")
rsm.open "select * from [nd_user] where username='"&username&"'",conn,1,3
yuee=rsm("deposit")
set rs=server.CreateObject("adodb.recordset")
rs.open "select distinct(goods),realname,actiondate,deliverymethord,paymethord,state from ND_SHOP_orders where goods='"&request("dan")&"'",conn,1,1
set shop=server.CreateObject("adodb.recordset")
shop.open "select sum(paid) as paid,sum(score) as score from ND_SHOP_orders where goods='"&request("dan")&"' ",conn,1,1
sums2=shop("score")
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from delivery where deliveryid="&rs("deliverymethord"),conn,1,1
response.write "<br><br>这个订单的总金额为"&shop("paid")+rs2("fee")&"元,你需要支付"&shop("paid")+rs2("fee")&"元<br>"
if yuee>=(shop("paid")+rs2("fee")) then
rsm("deposit")=yuee-(shop("paid")+rs2("fee"))
rsm("score")=rsm("score")+sums2
rsm.update
set rscccc=server.CreateObject("adodb.recordset")
rscccc.open "select * from [ND_SHOP_caiwu]",conn,1,3
rscccc.addnew
rscccc("money_a")=shop("paid")+rs2("fee")
rscccc("m_type")="2"
rscccc("time_a")=now()
rscccc("username_a")=username
rscccc("dingdan")=request("dan")
rscccc("is_ok")="1"
rscccc.update
conn.execute("update ND_SHOP_orders set state=2 where goods='"&request("dan")&"'")
response.write "<strong>系统已从你帐户里扣去"&shop("paid")+rs2("fee")&"元,支付成功</strong>"
response.write "<script language=javascript>alert('支付成功！');self.location='$page$cp_vip_user_page$?action=goods';</script>"
response.end
else
response.write "<strong>你的帐户余额不足,无法支付,请先充值,再支付</strong>"
response.write "<script language=javascript>alert('你的帐户余额不足,无法支付,请先充值,再支付');self.location='$page$cp_vip_user_page$?action=goods';</script>"
end if
end sub
sub caiwulist()
username=uuuaa
%>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder" style="word-break:break-all" bgcolor=#F7F7F7 >
<tr align="center">
<th height="26" colspan="3">财务记录</th>
</tr>
<tr align="center" bgcolor="#DEDBEF">
<td width="34%" height="25" bgcolor="#DFE1E1"><strong>订单号</strong></td>
<td width="18%" height="25" bgcolor="#DFE1E1"><strong>类型</strong></td>
<td width="22%" height="25" bgcolor="#DFE1E1"><strong>金额(元)</strong></td>
<td width="26%" height="25" bgcolor="#DFE1E1"><strong>日期</strong></td>
</tr>
<%
CurrentPage=replacebadchar(request("page"))
if CurrentPage="" then
CurrentPage=1
else if not IsNumeric(CurrentPage) then
CurrentPage=1
else if int(CurrentPage)<=0 then
CurrentPage=1
else
CurrentPage=replacebadchar(request("page"))
end if
end if
end if
strFileName="$page$cp_vip_user_page$?action=caiwulist"
maxperpage=15
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [ND_SHOP_caiwu] where username_a='"&username&"' and is_ok='1' order by id desc",conn,1,3
if not rs.eof then
rs.pagesize=MaxPerpage
totalnumber=rs.recordcount
if totalnumber mod maxperpage=0 then
MaxPage= totalnumber \ MaxPerpage
else
MaxPage= totalnumber \ MaxPerpage+1
end if
if int(CurrentPage)>int(MaxPage) then
CurrentPage=MaxPage
else
CurrentPage=CurrentPage
end if
Rs.absolutepage=CurrentPage
for ni=1 to MaxPerpage
if rs.eof then exit for
sum1=rs("money_a")
mtype=rs("m_type")
timea=rs("time_a")
danhao=rs("dingdan")
if cstr(mtype)="2" then
tttyppeee="支出"
end if
if cstr(mtype)="1" then
tttyppeee="充值"
end if
%>
<tr onmouseover="this.style.backgroundColor='#F3F3FA';this.style.color='red'" onmouseout="this.style.backgroundColor='';this.style.color=''" align="center">
<td height="25" bgcolor="#FFFFFF"><%=danhao%></td>
<td height="25" bgcolor="#FFFFFF"><%=tttyppeee%></td>
<td height="25" bgcolor="#FFFFFF"><%=sum1%></td>
<td height="25" bgcolor="#FFFFFF"><%=timea%></td>
</tr>
<%
rs.movenext
next
else%>
<tr>
<td height="25" colspan="5" align="center" bgcolor="#F1F1F5">没有财务记录</td>
</tr>
<%end if%>
<tr>
<td height="35" colspan="5" align="center" class="showPage"><%call showpagek(strFileName,totalnumber,MaxPerPage,flase,true,"条",CurrentPage)%></td>
</tr>
</table>
<%
end sub
sub showpagek(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit,CurrentPage)
'dim n, i,strTemp,strUrl
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
strTemp= "<table align='center' class=maintext><form name='showpages' method='post' action='" & sfilename & "'><tr><td>"
if ShowTotal=true then
strTemp=strTemp & "共 <b>" & totalnumber & "</b> " & strUnit & " "
end if
strUrl=JoinChar(sfilename)
if CurrentPage<2 then
strTemp=strTemp & "首页 上一页 "
else
strTemp=strTemp & "<a class=maintext href='" & strUrl & "page=1'>首页</a> "
strTemp=strTemp & "<a class=maintext href='" & strUrl & "page=" & (CurrentPage-1) & "'>上一页</a> "
end if
if n-currentpage<1 then
strTemp=strTemp & "下一页 尾页"
else
strTemp=strTemp & "<a class=maintext href='" & strUrl & "page=" & (CurrentPage+1) & "'>下一页</a> "
strTemp=strTemp & "<a class=maintext href='" & strUrl & "page=" & n & "'>尾页</a>"
end if
strTemp=strTemp & " 页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 "
strTemp=strTemp & " <b>" & maxperpage & "</b>" & strUnit & "/页"
if ShowAllPages=True then
strTemp=strTemp & " 转到：<select name='page' id='page' size='1' onchange='javascript:submit()'>"
for i = 1 to n
strTemp=strTemp & "<option value='" & i & "'"
if cint(CurrentPage)=cint(i) then strTemp=strTemp & " selected "
strTemp=strTemp & ">第" & i & "页</option>"
next
strTemp=strTemp & "</select>"
end if
strTemp=strTemp & "</td></tr></form></table>"
response.write strTemp
end sub
%>
<!--#include file="../inc/ND_paid_inc.asp"-->